Perl foreach 在一个矩阵行上循环

Question

我想遍历矩阵中的第 1 行。像这样的：

#!/usr/bin/perl
use strict;
use warnings;

my @matrix;

$matrix[0][0] = 'zero-zero';
$matrix[1][1] = 'one-one';
$matrix[1][2] = 'one-two';

foreach my $line (@matrix[1]) {
        print "$line\n";
}

我希望在这里得到“一一”和“一二”。但据我所知，我得到了数组参考。这里有什么问题？

Answer 1

您必须取消引用 $matrix[1]，它是对数组 [undef, "one-one", "one-two"] 的引用

foreach my $line (@{ $matrix[1] }) {
    print "$line\n";
}