Perl Сортировка Хэш Массивы

Question

У меня есть хэш массивов, выглядит следующим образом:

{ $key, [$val1, $val2] } 

Я пытаюсь численно сортировать по второму значению массива и распечатать весь хэш. Я взглянул на сообщения Schwartzian Transform, но я не видел того, что делает именно то, что я хочу. Я также очень смущен синтаксисом и как сопоставить отсортированные значения в исходной форме {$key, [$val1, $val2] }. Любая помощь будет оценена!

Answer 1

Не совсем уверен, что вы имеете в виду, но это, как вы реализуете процедуру сортировки по значению массива, внутри хэш:

my %hash = ('key1' => [ 1, 2 ], 'key2' => [ 2, 3 ]); 

for my $key (sort { $hash{$a}[1] <=> $hash{$b}[1] } keys %hash) { 
    print "$key => '", join(", ", @{$hash{$key}}), "'\n"; 
} 

Answer 2

Я вы действительно хотите использовать Шварца-Transform, здесь это способ сделать это:

#!/usr/bin/perl 
use Data::Dump qw(dump); 

my %hash = (k1 => [1, 2], k2 => [24, 5], k3 => [5, 1]); 
foreach(
     sort { $a->[1] <=> $b->[1] } 
     map { [$_, $hash{$_}->[1] ] } keys %hash) { 
    say $_->[0],' => ',dump$hash{$_->[0]}; 
} 

выход:

k3 => [5, 1] 
k1 => [1, 2] 
k2 => [24, 5] 

NB:

Я просто дать этот ответ в качестве примера Шварца Transform

Но, как говорится в комментарии, нет никакой необходимости в этом в том случае, объяснил в вопросе, ST является экономия затрат при это некоторые вычисления для каждого элемента массива перед сортировкой. По заданному вопросу нет никаких вычислений, поэтому не используйте ST здесь.