arrays - Perl 将一个数组放入特定列的二维数组中

Question

我有一个二维数组。
我可以使用以下内容获取它的给定列:

my @column_zero=map {$_->[0]} @{$twod_array};

然后我可以操纵@column_zero随意。

但是如何将它放回二维数组中呢？

Answer 1

也许最好获取对值的引用:

my @ref_to_column_zero = map { \($_->[0]) } @{$twod_array};

...所以你可以直接操作这些值:你只需要记住这个数组中存储了引用，所以应该取消引用它们。例如:

for (@ref_to_column_zero) {
  ${ $_ } *=2;
}

如果您更喜欢使用旧方法，可以这样做:

for (0..$#column_zero) {
  $twod_array->[$_][0] = $column_zero[$_];
}