Perl排序哈希的数组

Question

我有一个如下所示的数组哈希:

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

我正在尝试按数值排序数组的第二个值并打印出整个哈希值.我看过Schwartzian变换的帖子,但我还没有看到一个完全符合我想要的东西.我也对语法以及如何将排序后的值映射回原始{$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

我真的想要使用Schwartzian-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]

注意:

我只是将这个答案作为Schwartzian变换的一个例子

但正如评论中所述,在问题中解释的情况下不需要它,当排序之前对阵列的每个元素进行一些计算时,ST是节省成本的.对于提出的问题,没有计算要做,所以不要在这里使用ST.