Perl: Тип первые элементы в отсортированном хэш

Question

я следующие:

. 
. 
. 
foreach my $op(reverse sort {$count{$a} <=> $count{$b}} keys %count) { 
     printf "%-25s %s\n", $op, $count{$op}; 
} 
. 
. 
. 

В основном это типы все элементы в моем списке отсортированы. Я бы хотел, чтобы набирали первые три элемента, а не все из них, эти три элемента являются наиболее повторяющимися, то есть имеют наибольший счет.

Пожалуйста, дайте мне знать, если вы хотите, чтобы я оставил остальную часть своего кода.

спасибо.

Answer 1

Вы действительно могли бы нам встретить.

my $limit = 3; 
for my $op (reverse sort { $count{$a} <=> $count{$b} } keys %count) { 
    printf "%-25s %s\n", $op, $count{$op}; 
    last if !--$limit; 
} 

Вы можете использовать кусочек списка, если вам гарантировано не менее трех элементов.

for my $op ((reverse sort { $count{$a} <=> $count{$b} } keys %count)[0..2]) { 
    printf "%-25s %s\n", $op, $count{$op}; 
} 

Это еще немного, если вы не можете гарантировать, что гарантия.

my @ops = reverse sort { $count{$a} <=> $count{$b} } keys %count; 
splice(@ops, 3) if @ops > 3; 
for my $op (@opts) { 
    printf "%-25s %s\n", $op, $count{$op}; 
} 

(if @ops > 3 предотвращает предупреждение в старых версиях Perl.)