perl - 如何从 Perl 中的哈希表中获取前 n 个键值对

Question

我对 perl 很陌生，所以我搜索了一段时间，但仍然得到了答案。我想从哈希表中获取前 100 对，但不知道该怎么做。要从哈希表中获取每一对，我们可以执行以下操作:

foreach my $term (keys %hashtable)
{
    do something regarding $hashtable{$term} here
}

但是如何从中取出前 100 对呢？非常感谢!

Answer 1

其它的办法:

my %hash100 = (%hashtable)[0..199];
while ( my ($key, $value) = each %hash100 ) {
    ...
}

或者:

for my $key ( (keys %hashtable)[0..99] ) {
    my $value = $hashtable{$key};
    ...
}