Question

我有类似以下的数据结构

@colors = qw(red blond green);
@numbers = qw(349 1234.5678 3.14159265);
@hats = qw(fedora porkpie bowler);
my %hash = (colors => \@colors, numbers => \@numbers, hats => \@hats);

我想根据其中一个数组的值对其进行排序，保持并行数组元素的关联。也就是说，如果我交换$hash{numbers}[2]和索引$hash{numbers}[3]，我想对哈希中的所有其他数组进行相同的交换。在这种情况下，如果sort {$a <=> $b}上的numbers：

$sorted{numbers} = [3.14159265, 349, 1234.5678];
$sorted{colors}  = ["green", "red", "blond"];
$sorted{hats}  = ["bowler", "fedora", "porkpie"];

我正在使用的解决方案现在将%hash的结构反转为$array[$i]{$k} == $hash{$k}[$i]，@sorted = sort {$a->{numbers} <=> $b->{numbers}} @array的数组，然后将@sorted从哈希数组转换回哈希数组。

我真的不在乎排序是否稳定，我只是想知道是否有更好的方法。

Answer 1

这是我用过的一个技巧。

my @permutation = sort { $numbers[$a] <=> $numbers[$b] } (0..$#numbers);
@colors = @colors[@permutation];
@numbers = @numbers[@permutation];
@hats = @hats[@permutation];
# No change to %hash needed, since it has references to above arrays.

如何根据一个数组对多个数组进行排序？

1 个答案: