arrays - 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
}

这将更容易发现错误(尽管可能不是这个)，即使在三行脚本中也是如此。