perlでハッシュ配列を値でソートするにはどうすればよいですか？

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