多次元配列(リファレンスを用いて)の行にアクセスする方法

質問

多次元配列において、行全体を表示させるには、どのようにしたらよいのでしょうか。

例えば、以下のような(無名)配列を作成したあとに、2行目を全て表示させる方法です。
@ARRAY = (
["00", "01", "02"],
["10", "11", "12"],
["20", "21", "22"]
);

cf: 一次元の場合は
@list = ("1", "2", "3");
$ref = \@list;
(print $ref; # ARRAY(0x9986)などとアドレスが表示)
print @$ref; # 配列の全てが表示
( print $$ref[1]; # "2"が表示 )
とやれるので、同じように
$ref = \@ARRAY;
print @$ref[1];
としてみても上手くゆきません。
(print $$ref[1][1]; # "11"が表示　はOK)

すみませんが、宜しくお願い致します。

回答No.3

kumoz

次の２つの $ref のデータ構造は同じになります。

(1)
@array = (
["00", "01", "02"],
["10", "11", "12"],
["20", "21", "22"]
);
$ref = \@array;

(2)
$ref = [
["00", "01", "02"],
["10", "11", "12"],
["20", "21", "22"]
];

(2) のように考えると、多少理解しやすいかも知れません？

個別 $ref->[0]->[1]
行全体 @{$ref->[1]}
スライス @{$ref->[2]}[0, 2]

------------------------------------------------------------------------

No.2779127 の質問は締切済みですが、拍子抜け (?) するくらいに簡単な方法が
あるようです。参考までに記すと、

my @list = (\@a, \@b, \@c, .....);
my @work =();
comb(0);

sub comb {
my $offset = shift;
foreach my $elm (@{$list[$offset]}) {
if ($offset == $#list) {
print @work, "$elm, ";
} else {
push @work, $elm;
comb($offset + 1);
pop @work;
}
}
}

回答No.2

kapura

$$ref[1][1]はもともと？、$$ref[1]->[1] あるいは ${$$ref[1]}[1] とか書けるものだと思います。

@ARRAY = (
["00", "01", "02"],
["10", "11", "12"],
["20", "21", "22"]
);
$ref = \@ARRAY;
print @{$ref->[1]}; # @{$$ref[1]}

回答No.1

Werner

$ARRAY[1] == ["10", "11", "12"]
なので、これを@でデリファレンスします。

-----------------------------------------------
my @ARRAY = (
　　["00", "01", "02"],
　　["10", "11", "12"],
　　["20", "21", "22"]
);
print join(", ", @{$ARRAY[1]} ); #=>10, 11, 12