Perl 多维数组

2024 年 8 月 29 日 | 阅读 2 分钟

Perl 多维数组是具有多个维度的数组。多维数组以行和列的形式表示，也称为矩阵。

它们不能保存数组或哈希，它们只能保存标量值。它们可以包含对其他数组或哈希的引用。

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 多维数组初始化和声明示例

在这个例子中，我们正在初始化和声明一个三维 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";
}

输出