perl foreach循环数组，简单的问题

Question

非常简单的 Perl 问题，但让我很困惑。

foreach $val (@{$obj->something()}) {
    # this works
}

@array = $obj->something();
foreach $val (@array) {
    # this does not
}

我需要做什么才能完成第二项工作（即：单独分配数组），我已经使用了相当多的第一种形式，但并不真正理解它的不同之处。

Answer 1

可能：

@array = @{$obj->something()};

从第一个示例中，看起来 $obj->something() 返回一个数组引用，您需要取消引用它。

另外，您确实应该use strict;和use warnings;，并像这样声明您的变量，

my @array = @{$obj->something()};
foreach my $val (@array) {
    # this does not
}

这将使您更容易发现错误（尽管可能不是这个），即使在三行脚本中。