arrays - Perlはoned配列を特定の列の2D配列に配置します

Question

2Dアレイがあります。私はそれの与えられた列を次のように得ることができます：

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

その後、私は自由に操作@column_zeroすることができます。

しかし、どうすればそれを2次元配列に戻すことができますか？

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[$_];
}

Answer 2

TMTOWTDIそう

do{my $i; $twod_array[$i++][0] = $_ for @column_zero;};