perl - 在哈希中打印特定数量的键值对

Question

我有一个散列，它存储键值对的计数，来自输入文档中的字符串数组，然后对它们进行排序并打印出来。

%count = ();
foreach $string (@strings) {
    $count{$string}++;
}
foreach my $key (sort {$count{$b} <=> $count{$a} } keys %count) {
    print $key, ": ", $count{$key} ; 
}

所以我想知道有没有办法只在哈希中打印一定数量的键值对而不是全部？即根据值打印前 5 名？

编辑:for 循环会解决这个问题吗？

Answer 1

%count = ();
foreach $string (@strings) {
    $count{$string}++;
}
my $n=0; # variable to keep count of processed keys
foreach my $key (sort {$count{$b} <=> $count{$a} } keys %count) {
    # count processed keys (++$n) 
    # and terminate the loop after processing 5 keys  
    last if ++$n>5; 
    print $key, ": ", $count{$key} ;
}