0..2^32-1 aralığında Perl üreten değerlerinde hızlı bir dize sağlama işlevi

Question

Ben aşağıdaki özelliklere sahip bir Perl dize sağlama fonksiyonu arıyorum

:

• Girdi: tanımsız Unicode dizesi uzunluğu ($string)
• Çıkış: işaretsiz bir tamsayı ($hash), 0 <= $hash <= 2^32-1 sahip olduğu için

Pseudo-kodu (0 4 baytlık MySQL işaretsiz int boyutunu eşleşen 4294967295, üzere)

sub checksum { 
    my $string = shift; 
    my $hash; 
    ... checksum logic goes here ... 
    die unless ($hash >= 0); 
    die unless ($hash <= 4_294_967_295); 
    return $hash; 
} 

İdeal sağlama fonksiyonu çalıştırmak için hızlı olmalı ve hemen hemen eşit çakışmaları önlemek için hedef alanı (0 .. 2^32-1) değerleri üretmelidir. Bu uygulamada rastgele çarpışmalar tamamen ölümcül değildir, fakat açıkçası onları mümkün olduğu ölçüde engellemek istiyorum.

Bu gereksinimler verildiğinde, bunu çözmenin en iyi yolu nedir?

Answer 1

Herhangi bir karma işlevi yeterli olacaktır - sadece 4 baytlık bir kısma böler ve bir sayıya dönüşür. İyi karma fonksiyonları rasgele bir dağılıma sahiptir ve dizgeyi nerede kırptığınız önemli değil, bu dağılım sabit olacaktır.

Digest::MD5'u öneririm çünkü standart olarak Perl ile gelen en hızlı karma uygulamasıdır. String :: CRC, Pim'in de belirttiği gibi, C de uygulanır ve daha hızlı olmalıdır.

use Digest::MD5 qw(md5); 
my $str = substr(md5("String-to-hash"), 0, 4); 
print unpack('L', $str); # Convert to 4-byte integer (long) 

Answer 2

Ne kadar hızlı olduğunu bilmiyorsunuz, ancak String::CRC'u deneyebilirsiniz.

Answer 3

perldoc -f unpack: From:

Burada karma hesaplayıp tam sayıya dönüştürmek nasıl

Tüm olası dizeleri ile çarpışmaları önlemek, ama sadece 4 milyar mümkün olmasını istediğiniz

 For example, the following computes the same number as the 
     System V sum program: 

      $checksum = do { 
       local $/; # slurp! 
       unpack("%32W*",<>) % 65535; 
      };