代码之家 › 专栏 › 技术社区 › Aaron

如何在Perl中打印二维数组?

multidimensional-array perl

Aaron · 技术社区 · 16 年前

push (@matrix, \@a1Comparea2);
push (@matrix, \@a3Comparea4);

$VAR1 = [
          [
            '1 6',
            '2 7',
            '3 8',
            '4 9',
            '5 10'
          ],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          [
            '7 12',
            '8 13',
            '9 14',
            '10 15',
            '11 16'
          ],
          $VAR1->[5],
          $VAR1->[5],
          $VAR1->[5],
          $VAR1->[5]
        ];

for (my $j= 0; $j < $rows; $j++)
{
    for (my $k= 0; $k < @a1; $k++)
    {
        print "Row:$j Col:$k = $matrix[$j][$k]\n";
    }
}

Row:0 Col:0 = 1 6
Row:0 Col:1 = 2 7
Row:0 Col:2 = 3 8
Row:0 Col:3 = 4 9
Row:0 Col:4 = 5 10
Row:1 Col:0 = 1 6
Row:1 Col:1 = 2 7
Row:1 Col:2 = 3 8
Row:1 Col:3 = 4 9
Row:1 Col:4 = 5 10

如您所见,数据是重复的。

2 回复 | 直到 5 年前

Peter Mortensen Pieter Jan Bonestroo 5 年前

你应该使用 @ $
article for a quick reference .

这篇文章给出了一个简单的例子。

@matrix = (
        [3, 4, 10],
        [2, 7, 12],
        [0, 3, 4],
        [6, 5, 9],
      );

for($row = 0; $row < 4; $row++) {
    for($col = 0; $col < 3; $col++) {
        print "$matrix[$row][$col] ";
    }
    print "\n";
}

Peter Mortensen Pieter Jan Bonestroo 5 年前

for (my $j=0; $j < $rows; $j++)
{
    for (my $k=0; $k < @a1; $k++)
    {
        print "Row:$j Col:$k = $matrix[$not_j][$k]\n";
    }
}

$not_j 将始终计算为0,从而产生您的输出。

推荐文章

Paul Williams · 迭代数组时输出有问题

1 年前

pasty guacamole · 在结构体(C)中使用双指针访问2d数组上的信息

1 年前

Muffinman · 使用Excel O365,如何在两列上使用唯一性,对相关数据进行排序和复制?

1 年前

Suyash Nachankar · 为什么矩阵的所有行都与最后一行相同?

1 年前

Vyacheslav Verkhovin · C中二维数组的Typedef和指针上的访问

1 年前

Aditi · 我正在尝试用Java解决一个数字模式问题。我已经写了代码,如果有人能对我现有的sol进行更改,我将不胜感激

2 年前

neo · 为什么我不能访问以取消引用int指针作为索引的char指针数组中的位置

2 年前

Omprakash · 使用Google工作表中的多行和多列进行筛选

2 年前

Genki · Bash:如何从多维数组中的命名键获取值

2 年前

Insert0Name0Here · 将多维数组中的数组传递给C中的函数#

2 年前