PERL下防止饱和运算（超过最大值自动翻转）

关于饱和运算请百度一下即可。 最近需要将字符串hash成数字，在网上搜了一下，发现BKDRHash算法是效率最高、冲突较少的算法，于是乎试图将C代码的该算法移植到PERL下，结果发现在PERL下，默认是饱和运算……这可不行，因为该算法就是不停的计算，如果是饱和运算，当字符串太长之后，算出来的hash值就不会变了，始终是0XFFFFFFFF（如果是64位的机器，会是另外一个值），这就造成字符串的长度有限制，不满足要求。 最后在网上搜索良久，发现只要用use integer即可解决该问题，有关usr integer，可以参考：http://docstore.mik.ua/orelly/perl4/prog/ch31_11.htm 只要在你想开始用的地方加上use integer，然后在结束的时候用no?integer，就可以啦！ use warnings; sub BKDRHash() { ? ? my $str = shift; ? ? my $seed = 31; ? ? my $hash = 0; ? ? my $lengthofstr = length($str); ? ? my $i = 0; ? ?? use integer;? ? ? for (;$i < $lengthofstr; $i++) ? ? { ? ? ? ? my $j; ? ? ? ? $j = $i + 1; ? ? ? ? my $temp = substr($str,$i,$j); ? ? ? ? $hash = $hash * $seed + ord($temp); ? ? } ? ? print $hash; no integer; ? ? #$hash = $hash & 0x7FFFFFFF; } my $param = shift; &BKDRHash($param);