펄에서 값으로 해시 배열을 정렬하려면 어떻게해야합니까?

Question

나는 디렉터리의 모든 파일을 찾아 이름과 크기의 해시 배열을 만드는 프로그램을 가지고있다.

예를

내가 크기의 내림차순으로 파일을 정렬하여 새 배열에 이름/값을 추가 할 수 있도록

%files = ("file1" => 10, "file2" => 30, "file3" => 5); 

.

예는

%filesSorted = ("file2" => 30, "file1" => 10, "file3" => 5); 

나는 값으로 배열을 정렬 한 후 값을 인쇄하는 방법은 여러 가지를 발견하지만 그건 내가 원하는 게 아니에요.

Answer 1

배열에 파일 이름을 정렬 순서대로 넣어야합니다. Perl 해시와 달리 배열은 순서가 유지되고 순서가 유지됩니다. 이 코드는 자신의 데이터

use strict; 
use warnings; 

my %files = (file1 => 10, file2 => 30, file3 => 5); 

my @sorted = sort { $files{$b} <=> $files{$a} } keys %files; 

foreach my $file (@sorted) { 
    print "$file => $files{$file}\n"; 
} 

OUTPUT 이해가되지 않습니다

file2 => 30 
file1 => 10 
file3 => 5