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};
    ...
}

Answer 2

ハッシュには特定の順序がないため、ハッシュの最初の 100ペアのようなものはないことに注意してください。

オフバイワンエラーからあなたを守るべき別の解決策：

for my $i (1 .. 100) {
    my ($key, $value) = each %hashtable;
    print "$key => $value\n";
}

Answer 3

私もPerlは初めてで、もっとエレガントな解決策があるかもしれませんが、次のことができます：

my $i = 0;
foreach my $term (keys %hashtable) {
    ...
    do something regarding $hashtable{$term} here
    ...

    last if ($i++) == 100;    
}