利用匿名引用，创建如下二维数组,其中黄色部分是两个数组的乘积，我们需要利用数组（1，2，3，4） 创建其乘积：
image.png
代码实现如下：
@a=(1,2,3,4);
@b=(1,2,3,4);
@c=()；
$i=0;
foreach $m (@a){ #对数组@a进行循环
$j=0;
foreach $n (@b){ #对数组@b进行循环
$c[$i][$j]=$m*$n; #循环的乘积存在@c中，每一行都是一个匿名数组
$j+=1;
}
$i+=1;
}
#打印数组
$n=0;
foreach(@c){
foreach(@{$c[$n]}){
print"$_\t";
}
$n+=1;
print "\n";
}
运行结果如下：
1 2 3 4
2 4 6 8
3 6 9 12
4 8 12 16
网友评论