perl／配列の中に配列〜リファレンスとデリファレンス〜

perlって、今のところ思ったほど難しくない。でも、これからが問題なんだろうなー。モジュールを使ったり自分でサブルーチン作ったりで。。。

#! usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# 配列の配列(配列の中に配列)
my @array1=(
    [1,2,3,4],
    [111,222,333,444,555],
    ['a','b']
);

print Dumper \@array1;
print "\n";

# 要素に追加してみましょう。
push (@array1,[99,88,77]);

print Dumper \@array1;
print "\n";

# 要素にアクセスしてみましょう。
# 出力結果=>555
print ${$array1[1]}[4],"\n";
print $array1[1]->[4],"\n";

# 出力結果=>ab
print @{$array1[2]},"\n";

# 以上を踏まえて要素すべてをprintしてみましょう。
for my $a (@array1){
    print "[@$a]\n";
};