정렬 해시 값

Question

가능한 중복 : 나는 꽤 솔루션을 웹을 탐색했다,하지만 난 내 요구를 충족 아무것도 찾을 수 없습니다
Perl sorting hash by values in the hash

.

나는 각 단어에 부착 된 값 단어의 큰 목록을

예 :

my %list = (
    word => 10, 
    xword => 15, 
    yword => 1 
) 

목록은 끝이 있지만 상위 5 해시 요소를 반환 할 수 있도록하려면 가장 높은 대응하는 값

Answer 1

use strict; 
use warnings; 

sub topN { 
    my ($N, %list) = (shift, @_); 
    $N = keys %list if $N > keys %list; 
    return (sort { $list{$b} <=> $list{$a} } keys %list)[0..$N-1]; 
} 

my %list = (word => 10, xword => 15, yword => 1, zword => 4);  
print join (",", topN(5, %list)), "\n"; 

출력 :

xword,word,zword,yword 

Answer 2

이것은 필요한 작업을 수행합니다. 해시의 요소 수가 5 개 미만이고이를 처리하기 위해 코드를 추가해야하는 경우 경고가 Use of uninitialized value 번 발생합니다. 상위 5 개 값만 찾는 것이 아니라 전체 해시를 정렬한다는 점에서 비효율적입니다. 그것이 문제인지 아닌지 여부는 상황에 따라 다릅니다.

use strict; 
use warnings; 

my %list = (
    word => 10, 
    xword => 15, 
    yword => 1, 
); 

my @top5 = (sort { $list{$b} <=> $list{$a} } keys %list)[0..4]; 

print "$_\n" for @top5; 

출력

xword 
word 
yword 

Answer 3

use strict; 
use warnings; 

my %list = (
    word => 10, 
    xword => 15, 
    yword => 1, 
); 

my @top5 = sort { $list{$b} <=> $list{$a} } keys %list; 
splice(@top5, 5) if @top5 > 5; 

print "$_\n" for @top5;