Perl で配列の配列を作る

comments(0) | trackback(0)

my (@a, @b);
push @a, [ @b ];

for my $aref ( @a ) {
    print "[ @$aref ]\n";
}

for my $i ( 0 .. $#a ) {
    print "$i: [ @{$a[$i]} ]\n";
}

for my $i ( 0 .. $#a ) {
    for my  $j ( 0 .. $#{$a[$i]} ) {
        print "$i: $j: $a[$i][$j]\n";
    }
}

- Perl で配列の配列を操作する
  http://perldoc.jp/docs/perl/5.6.1/perllol.pod