📅 最后修改于: 2021-01-07 08:27:12 🧑 作者: Mango
Perl多维数组是具有多个一维的数组。多维数组以行和列的形式表示，也称为矩阵。
它们不能容纳数组或哈希，只能容纳标量值。它们可以包含对另一个数组或哈希的引用。
在这里，我们通过组合三个不同的数组arr1 ， arr2和arr3来打印3维矩阵。将这三个数组合并以使矩阵数组成为final 。
两个for循环与两个控制变量$ i和$ j一起使用。
## Declaring arrays
my @arr1 = qw(0 10 0);
my @arr2 = qw(0 0 20);
my@arr3 = qw(30 0 0);
## Merging all the single dimensional arrays
my @final = (\@arr1, \@arr2, \@arr3);
print "Print Using Array Index\n";
for(my $i = 0; $i <= $#final; $i++){
# $#final gives highest index from the array
for(my $j = 0; $j <= $#final ; $j++){
print "$final[$i][$j] ";
}
print "\n";
}
输出：
Print Using Array Index
0 10 0
0 0 20
30 0 0
在此示例中，我们将初始化并声明三维Perl数组。
@array = (
[1, 2, 3],
[4, 5, 6],
[7, 8, 9]
);
for($i = 0; $i < 3; $i++) {
for($j = 0; $j < 3; $j++) {
print "$array[$i][$j] ";
}
print "\n";
}
输出：
1 2 3
4 5 6
7 8 9