问题列表 - 第40543页

尝试使用Perl将位移位为负数时,我遇到了问题.例如:

printf("%d", (-10) >> 2);

此方法打印:1073741821

在相同条件下,当我尝试使用Javascript时:

document.write('test: ' + (-10 >> 2) + '<br>');

输出为-3

我想了解Perl和Javascripts之间的区别.Perl是否存在将位移位为负数的问题？

非常感谢你.

我在我的网站上有一张地图,我希望将其绑定到搜索框以搜索给定点周围的本地商家信息.使用Google Maps V2,这就像添加LocalSearch组件一样简单,该组件覆盖了用户可以键入的框(例如,"披萨"),并且它将返回该点周围的所有本地商家列表.

但是,我刚刚发现此通知,Google已弃用LocalSearch API,并将在未来几年内将其停用.如何使用Google Maps V3上面描述的功能......什么？Google Places API？自定义搜索API？

任何帮助,将不胜感激; 我没有能够在没有LocalSearch的情况下找到任何这样的例子......

Google退出LocalSearch:http://googlecode.blogspot.com/2010/11/introducing-google-apis-console-and-our.html

以下是我的代码:

它用于测试素数生成器,它生成并填充arraylist前n个素数.在我的测试中,我创建了一个已知素数数组,然后使用我的方法构造前50个(knownPrimes.length)素数的arraylist.然后选择一个随机数,我想断言使用我的方法nextRandomPrime(从我的未知/生成素数的arraylist中选择一个数字)选择的每个素数都包含在数组knownPrimes中.我怎样才能做到这一点 ？

在伪代码中我想做的是:

assertTrue(createdPrimeList.nextRandomPrime is a value in the array knownPrimes);

这是我到目前为止所得到的:

 public void comparePrimes() {
    int[] knownPrimes = new int[] { 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 
      31,  37,  41,  43,  47,  53,  59,  61,  67,  71, 
      73,  79,  83,  89,  97, 101, 103, 107, 109, 113, 
      127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 
      179, 181, 191, 193, 197, 199, 211, 223, 227, 229 };

    Primes createdPrimeList = new Primes (knownPrimes.length); …

也许这不是什么大不了的事,但是这让我心碎:

deltas = data[1:] - data[:-1]

有了这个:

for i in range(len(deltas)):
        if deltas[i] < 0: deltas[i] = 0
        if deltas[i] > 100: deltas[i] = 0

对于这个特殊的例子......有更好的方法来做清洁部分吗？

问题第二部分:如果清理规则比这个例子更复杂或更复杂,该怎么办？例如,我们可能只想将所有负数更改为零.或者,我们可能正在进行更复杂的映射.

反正有没有检测JavaScript对象是否是正则表达式？

例如,我想做这样的事情:

var t = /^foo(bar)?$/i;
alert(typeof t); //I want this to return "regexp"

这可能吗？

谢谢!

编辑:谢谢你的所有答案.看来我有两个非常好的选择:

obj.constructor.name === "RegExp"

要么

obj instanceof RegExp

这两种方法的主要优点/缺点是什么？

再次感谢!

我希望用户能够将鼠标悬停在链接上,单击它,它会自动选中左侧的复选框,当他们选择它时,它将取消选中该框.

我该怎么做呢？

<input type="checkbox" name="favorite_color" value="Orange"> <a href="#" rel="favorite_color">Orange</a>

我已经从SQL Server 2005升级到2008.我记得在2005年,ROWLOCK根本无法工作,我不得不使用PAGELOCK或XLOCK来实现任何类型的实际锁定.我知道读者会问"你做错了什么？" 没有.我最终证明我可以编辑一个"ROWLOCKED"行,但如果我升级锁定级别则不行.我没有机会看到它是否适用于SQL 2008.我的第一个问题是有没有人在2008年遇到过这个问题？

我的第二个问题如下.我想测试一个值是否存在,如果存在,则对相关列执行更新,而不是整行的插入.这意味着如果找到该行,则需要将其锁定,因为维护过程可能会在进程中删除此行,从而导致错误.

为了说明原理,以下代码是否有效？

BEGIN TRAN

SELECT      ProfileID
FROM        dbo.UseSessions
WITH        (ROWLOCK)
WHERE       (ProfileID = @ProfileID)
OPTION      (OPTIMIZE FOR (@ProfileID UNKNOWN))

if @@ROWCOUNT = 0 begin
    INSERT INTO dbo.UserSessions (ProfileID, SessionID)
    VALUES      (@ProfileID, @SessionID)
end else begin
    UPDATE      dbo.UserSessions
    SET         SessionID = @SessionID, Created = GETDATE()
    WHERE       (ProfileID = @ProfileID)
end

COMMIT TRAN

我们的项目正在使用中，CVS并且已经集成了它eclipse，因此我们Team Synchronizing习惯从CVS获取最新代码，但是is there a way to revert the previous commit or update from repositry which we have done ?

我来自git背景，所以我很难从中找到此功能eclipse/cvs，任何建议都将得到高度重视。

我知道有些处理器因数据未对齐而失败,而其他处理器就像那些常见的x86一样,只会慢得多.

我的问题是为什么？为什么x86处理器从指针获取数据0x12345679比从指针获取数据更难0x12345678？为了清楚起见,我知道如果数据在多个页面中可能会发生页面错误,并且我知道可能需要从内存中获取更多数据(一个部分用于值的开始,一个用于结束) ,但这并不总是正确的,这不是我的问题所在.我问,为什么总是慢？

假设内存开始于0x10000000.为什么处理器比short从0x10000001它获取2字节更难0x10000002？为什么更难获得一个4字节int从0x10000001比它是从0x10000000？等等.

我有一些有趣的结果试图辨别使用Encode::decode("utf8", $var)和之间的差异utf8::decode($var).我已经发现在变量上多次调用前者最终会导致错误"无法解码带有宽字符的字符串...",而后一种方法将很乐意运行多次,只需返回false.

我无法理解的是该length函数如何根据您用于解码的方法返回不同的结果.问题出现是因为我正在处理来自外部文件的"双重编码"utf8文本.为了演示这个问题,我在一行创建了一个文本文件"test.txt",其中包含以下Unicode字符:U + 00e8,U + 00ab,U + 0086,U + 000a.这些Unicode字符是Unicode字符U + 8acb的双重编码,以及换行符.该文件以UTF8编码为磁盘.然后我运行以下perl脚本:

#!/usr/bin/perl                                                                                                                                          
use strict;
use warnings;
require "Encode.pm";
require "utf8.pm";

open FILE, "test.txt" or die $!;
my @lines = <FILE>;
my $test =  $lines[0];

print "Length: " . (length $test) . "\n";
print "utf8 flag: " . utf8::is_utf8($test) . "\n";
my @unicode = (unpack('U*', $test));
print "Unicode:\n@unicode\n";
my @hex = (unpack('H*', $test));
print "Hex:\n@hex\n";

print "==============\n";

$test = Encode::decode("utf8", $test);
print "Length: …