Perl对一个矩阵行进行foreach循环

Question

我想循环遍历矩阵中的第一行。像这样:

#!/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 "$linen";
}

我希望在这里得到' 1 - 1 '和' 1 - 2 '。但我得到的是数组引用。这里出了什么问题?

Answer 1

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

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