perl中的postfix for循环不能正常工作

Question

以下行完美运作

for(my $i=0; $i < ($max_size - $curr_size) ; $i++){
    push (@{$_}, 0);
}

但这个没有。

push (@{$_}, 0) for (1 .. ($max_size - $curr_size));

它给我一个这样的错误信息：

Can't use string ("1") as an ARRAY ref while "strict refs" in use at coordReadEasy.pl line 124, <DATA> line 16.

为什么呢？我怎么解决这个问题？

Answer 1

for的范围版本为每个元素设置了$_，因此在@{$_}中，您尝试取消引用$_，就像它是一个数组引用一样。这些都是等价的：

for my $x (1..10) {
  print "$x\n"
}

for (1..10) {
  print "$_\n"
}

print "$_\n" for (1..10);

简单的解决方案是为数组引用创建另一个变量：

push @{$ref}, 0 for 1 .. $max_size - $curr_size;