Question

我正在Perl打一个 has。我在座标时遇到了记忆错误:

foreach $key (sort (keys(%hash))) {
   ....
}

我如何打上有吨数据的洗衣?

Answer 1

<代码>>(hash>>在大型<代码>%hash上,密码>低效,其中,记忆明智,大致相当于:

my @keys = keys %hash;
@keys = sort @keys;

在进行分类时,它必须保存三本钥匙的复印件(其中一份在散列,一份在钥匙清单中,一份在分类清单中)。 <代码>foreach 存储器优化不适用。

由于洗衣如此庞大,最好的选择是完全摆脱记忆。在BerDB的档案中标出。如果你想要把钥匙保留下来,以便 has子不成为最佳选择,那么树就是树。我建议使用Berker BTree档案。树木将有效地保持像一个阵列这样的数据,同时提供像一个 has一样的快速勘测。

这里的例子有:BerkeleyDB.DB_File 较为简单,但并未利用伯克斯银行的现代特征。 YMMV。

use BerkeleyDB;

my $db  = tie my %hash,  BerkeleyDB::Btree ,
              -Filename => "your.db",
              -Compare  => sub { $_[1] cmp $_[0] },
              -Flags    => DB_CREATE;

<代码>-Compare说明了如何提供自己的分类功能。捆绑的接口将简练。除非你需要,否则,它就使用物体界面。

Answer 2

Perl FAQ有一些实例可以分类。查阅,这里是:

Answer 3

如果贵方的钥匙是小幅最大大小的分类、编号或扼杀,你可以使用:

use Sort::Packed qw(sort_packed);

my $hash_size = keys %hash;
my $max_key_len = 4;  
my $packed_keys =    x ($max_key_len * $hash_size);
my $ix = 0;
while (my ($key, $value) = each %hash) {
  my $key_len = length $k;
  $key_len <= $max_key_len or die "key $key is too big";
  substr($packed_keys, $ix, $key_len, $key);
  $ix += $max_key_len;
}

sort_packed("C$max_key_len", $packed_keys);

$ix = 0;
while ($ix < length $packed_keys) {
  my $key = substr($packed_keys, $ix, $max_key_len);
  $key =~ s/+$//;
  print "$key
";
  $ix += $max_key_len;
}

诚然,这部法典是相当令人怀疑的,但它将尽量减少记忆的使用。

友情链接