無名配列にスライスを使いたい。

質問

無名配列の要素へアクセスする際に、スライスを使いたいのですが
どのようにすれば良いのでしょうか？
まず、@table を3行×3列のテーブルにみたてて、テーブルを作成します。
my @table;
for my $i (0..2){
for my $j (0..2){
$table[$i][$j] = ($i+1)*($j+1);
}
}
foreach (@table){
print "@{$_}\n";
}
# 出力結果
# 1 2 3
# 2 4 6
# 3 6 9
# 次に１列目のデータをすべて x にしたいのですが、以下のようにすればできることは理解できました。
foreach my $k (0..2){
$table[$k][0] = x;
}
# output
# x 2 3
# x 4 6
# x 6 9

# ただ、これを以下のようにスライスを使って処理しようとすると・・・
${@table[0..2]}[0] = x;
foreach (@table){
print "@{$_}\n";
}
# 出力結果
# 1 2 3
# 2 4 6
# x 6 9
# 明らかに目的とは違ったスクリプトになってしまっているのですが、なぜ上記のような出力になるのでしょうか？
また、スライスを使って、一行目のデータをすべてxにする方法が
ありましたらご指導くださいませんでしょうか。

長い質問になってしまいましたが、よろしくお願いします。

回答No.1

Tacosan · ベストアンサー

それはできなかったはず.
${@table[0..2]}[0] = x;
(右辺の x も適切にクォートしましょう) が
${$table[0], $table[1], $table[2]}[0] = 'x';
と解釈され, この前の {} 内がスカラコンテキストで評価されることにより
${$table[2]}[0] = 'x';
と処理されたんだと思う.

お礼

なるほど！！！
それで
${$table[2]}[0] = 'x';
と処理されたのですね。
よく理解できました！どうもありがとうございました。

無名配列の仕組みをよく理解せずに無理なスライスを適用して
いたということも理解できました。
どうもありがとうございました。