排序HOA的键，然后看重

Question

我有一个家乡地址我设置了如下（试验例）：

#!/usr/bin/perl -w 
use strict; 

my @array1 = qw (1 1 1 4 5); # Note '1' appears several times 
my @array2 = qw (a b c d e); 
my @array3 = qw (8 6 7 9 10); 
my @array4 = qw (f g h i j); 


my %hash; 
push @{$hash{$array1[$_]}}, [ $array2[$_], $array3[$_], $array4[$_] ] for 0 .. $#array1; 

for my $key (sort keys %hash) { 
    for my $array (@ { $hash{$key} }) { 
     my ($array2, $array3, $array4) = @$array; 
     print "[$key] $array2\t$array3\t$array4\n"; 
    } 
} 

输出：

[1] a 8 f 
[1] b 6 g 
[1] c 7 h 
[4] d 9 i 
[5] e 10 j 

我想什么do可以按键排序（如上所述），但在键值相同的情况下，按照散列中包含的不同数组排序 - 例如数值在@array3值，以得到所需的输出：

 * 
[1] b 6 g 
[1] c 7 h 
[1] a 8 f 
[4] d 9 i 
[5] e 10 j 

Answer 1

通过

for my $array (sort { $a->[1] <=> $b->[1] } @{ $hash{$key} }) { 

替换该行

for my $array (@ { $hash{$key} }) { 

所有arrayrefs在@{ $hash{$key} }必须要排序的元素在索引1上。此排序块按第二个字段以数字升序排列它们。