@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]," ";
}
}
}
my @a=(1,2,3);
my @b=(4,5,6);
my @c=(7,8,9);
print "@a \n@b \n@c";
my @a=(1,2,3);
my @b=(4,5,6);
my @c=(7,8,9);
foreach my $num(@a,@b,@c){
print "$num";
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024