我是 Perl 新手，遇到了一个（可能很简单）数组排序问题。
我继承了一些 Perl 代码，这些代码将文本文件中的行读入三个一维数组 (x,y,z)。我希望能够使用其中一个维度作为键对这些数组进行排序，并重新排序其他两个维度以匹配。
例如，如果我的输入是：
我按 x 排序，我希望结果是：
如果这样可以让生活更轻松，我可以将三个一维数组合并为一个二维数组。
【问题讨论】：
标签： perl
没有必要将所有数组合并在一起。使用sort 为@x 中的元素获取正确的索引排序：
@sort_by_x = sort { $x[$a] <=> $x[$b] } 0 .. $#x; # ==> (0, 2, 1)
然后将该索引排序应用于任何其他数组：
@x = @x[@sort_by_x];
@y = @y[@sort_by_x];
@z = @z[@sort_by_x];
【讨论】：
use strict;
use warnings;
use Data::Dumper;
use List::Util qw(reduce);
my @x = (1, 3, 2);
my @y = (11, 13, 12);
my @z = (21, 23, 22);
my @combined = map { [ $x[$_], $y[$_], $z[$_] ] } 0 .. $#x;
my @sorted = sort { $a->[0] <=> $b->[0] } @combined;
my $split_ref = reduce { push @{$a->[$_]}, $b->[$_] for 0 .. $#$a; $a;} [[], [], []], @sorted;
print Dumper \@combined;
print Dumper \@sorted;
print Dumper $split_ref;
这基本上会给你：
[
[
1,
2,
3
],
[
11,
12,
13
],
[
21,
22,
23
]
];
【讨论】：
合并确实可以让生活更轻松。
@sorted = sort { $a->[0] <=> $b->[0] }
( [$x[0], $y[0], $z[0]], [$x[1], $y[1], $z[1]], [$x[2], $y[2], $z[2]] );
可能会这样做。你当然不想手写所有这些！
【讨论】：
如果@x 与@y 和@z 大小相同，则无需排序 - 您可以使用数组切片代替！
use strict;
use warnings;
use 5.010;
my @x = (1, 3, 2);
my @y = (11,13,12);
my @z = (21,23,22);
say join ', ', @y;
@y = @y[ map { $_ - 1 } @x ]; #We use map create a lists of the values of elements in @x, minus 1.
say join ', ', @y;
当然，如果你只是想按数字顺序排序，那么使用@x 是多余的：
@y = sort { $a <=> $b } @y;
最后，如果你想对任意数量的数组进行排序，你可以创建一个数组数组，或者将一个引用列表传递给一个 for，ala
my @indexes = map { $_ - 1 } @x;
for my $array_ref ( \@x, \@y, \@z ) {
@$array_ref = @{$array_ref}[@indexes];
}
【讨论】：
@x 中的值可以用作索引。如果它们是负数或不是唯一的怎么办？
@x 更改为 (1,3,3)。
试一试：
#!/usr/bin/perl
use 5.10.1;
use strict;
use warnings;
use Data::Dumper;
my @x = (1, 3, 2);
my @y = (11,13,12);
my @z = (21,23,22);
my (%y, %z);
@y{@x} = @y;
@z{@x} = @z;
my @xs = sort @x;
my @ys = @y{@xs};
my @zs = @z{@xs};
say Dumper \@xs,\@ys,\@zs;
输出：
$VAR1 = [
1,
2,
3
];
$VAR2 = [
11,
12,
13
];
$VAR3 = [
21,
22,
23
];
【讨论】：
@x 有任何重复值，则会中断。
【讨论】：
@y 或@z 进行排序。