Question

我编写了这个示例代码来检查perl哈希值中的整数或字符串索引是否更好。

use Time::Local;
use Time::HiRes qw/gettimeofday/;

my %string_hash;
my %int_hash;

$i_count = 100;
$j_count = 100;
$k_count = 1000;
foreach $i (0..$i_count)
{
    foreach $i (0..$j_count)
    {
        foreach $k (0..$k_count)
        {
            $i += 0;$j += 0;$k += 0;
            $int_hash{$i}->{$j}->{$k}           = 1;
            $string_hash{"$i"}->{"$j"}->{"$k"}  = 1;
        }
    }
}


my $profile = gettimeofday();
print "String hash start:$profile\n";
foreach $i (keys %string_hash)
{
    foreach $j(keys %{ $string_hash{$i} })
    {
        foreach $k(keys %{ $string_hash{$i}{$j} })
        {
            $i += 0;$j += 0;$k += 0;
            $val = $string_hash{$i}->{$j}->{$k};
        }
    }
}
printf("String hash took:%d millisec\n", (gettimeofday()-$profile)*1000);




$profile = gettimeofday();
print "Int hash start:$profile\n";
foreach $i (keys %int_hash)
{
    foreach $j(keys %{ $int_hash{$i} })
    {
        foreach $k(keys %{ $int_hash{$i}{$j} })
        {
            $i += 0;$j += 0;$k += 0;
            $val = $int_hash{$i}->{$j}->{$k};
        }
    }
}
printf("Int hash took:%d millisec\n", (gettimeofday()-$profile)*1000);

我得到了这个输出

$ perl hashs.pl String hash start：1308199085.84375 字符串哈希值为：500毫秒 Int hash start：1308199086.34379 Int hash采用：428 millisec

我在Cygwin（Windows）中尝试此操作，Perl版本是5.10.1

我在这里有几个问题 1）当我们在Hash中存储一个整数时，是否为此计算了一个哈希键，或者Perl是否直接在桶中使用了该值？ 2）如果我将相同的值转换为整数，我是否会获得任何性能改进，而不是存储字符串？ 3）如果我需要保持64位值作为multihash中的键，这将提供更好的性能bigint或将64位值保持为字符串

Answer 1

Perl中的哈希只有字符串作为键。所以你的$int_hash的密钥都被强制转换为字符串，因此两个版本之间的运行时间差异应该可以忽略不计。

多哈希中的整数索引优于字符串索引

1 个答案: