arrays - 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";
}