perl如何遍历三组数组

Question

perl如何遍历三组数组

Answer 1

@m=([[1,2,3],[2,3,4]],[[1,5],[2,6]]);for $i(0..$#m){for $j(0..$#{$m[$i]}){for $k(0..$#{$m[$i][$j]}){print $m[$i][$j][$k]," ";}}}

Answer 2

my @a=(1,2,3);my @b=(4,5,6);my @c=(7,8,9);foreach my $num(@a,@b,@c){print "$num";}

Answer 3

my @a=(1,2,3);my @b=(4,5,6);my @c=(7,8,9);print "@a \n@b \n@c";