Как отсортировать массив хэша по значению в 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"; 
} 

ВЫВОД

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