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";
}