[perl]配列の配列 2008/09/30

Perlです。

配列の要素に配列を定義しようと思いました。

配列って丸括弧だったようなぁということで

my @arr = ("a", "b", "c", "d");

としました。

次に最初の要素を配列にしたいと思い下記のようにしました。

my @arr = (("0001", "0002", "0003"), "a", "b", "c", "d");

としました。

サイズを表示させてみると５を期待していたのですが、７と表示されてしまいました。

ちなみにPerlで配列の長さは@arrらしいのですが、これを下記のようにすると配列の中身が表示されます。

my @arr = (("0001", "0002", "0003"), "a", "b", "c", "d");
print "content[@arr]\n";
print "size[".@arr."]\n";

うーん、丸括弧に丸括弧だから配列に配列指定している感じがでてると思ったのですが....

次に、四角括弧(!?)を使ったらうまくいきました。

my @arr = (["0001", "0002", "0003"], "a", "b", "c", "d");
print "content[@arr]\n";
print "size[".@arr."]\n";

きっときちんとした理由があるはずです。

参考
配列の配列

• perllol - Perl で配列の配列を操作する
• 「配列の配列」の基礎 - Perl入門〜サンプルコードによるPerl入門〜
• Perlでの配列の配列

配列の配列にアクセスするのは

my @arr = (["0001", "0002", "0003"], "a", "b", "c", "d");
print "content[@arr]\n";
print "size[".@arr."]\n";

#配列にアクセス
print @arr[2]."\n";

#これはだめ
#$print @arr[0][2]."\n";

#これはOK
print $arr[0][2]."\n";

@じゃないんだ...

レファレンスがよく理解できてないからなぁ
もうちょっと追求しよう...