[技术讨论] [Perl]超大哈希表（超过1G的那种）的存取

use DB_File;
STDOUT->autoflush(1);

my $DBFile = "F:/temp.db";
unlink $DBFile if ( -e $DBFile );

my %h;
tie %h, "DB_File", $DBFile, O_WRONLY|O_CREAT, 0666, $DB_BTREE or die "$!" ;

# Make many useless hash key/value
my $max = 1000_0000;
my ($iter, $curr, $prev) = (0, 0, 0);

while ($iter++ < $max)
{
    $h{ $iter } = join("", map { ('a'..'z')[rand(26)] } (0 .. int(rand(60)+1) ) );

    $curr = $iter / $max * 100.0;
    if ( ($curr - $prev) >= 1.0)
    {
        printf "%.1f\% ", $curr;
        $prev = $curr;
    }
}

untie %h;
print "Done\n";
复制代码

use DB_File;
my $DBFile = "F:/temp.db";
my %h;
tie %h, "DB_File", $DBFile, O_RDONLY, 0666, $DB_BTREE or die "$!" ;
print $h{"100021"};
untie %h ;
复制代码