perl，在for循环中从数组中删除元素

Question

以下代码在 perl 中是否始终有效？

for loop iterating over @array {
  # do something
  if ($condition) {
     remove current element from @array
  }
}

因为我知道在 Java 中这会导致一些异常，所以上面的代码现在对我有用，但我想确保它适用于 perl 中的所有情况。谢谢

Answer 1

嗯，doc里说的：

如果 LIST 的任何部分是一个数组，foreach 会变得非常混乱，如果你 在循环体中添加或删除元素，例如使用 splice。 所以不要那样做。

each 会好一点：

如果您在迭代哈希时添加或删除它的元素， 条目可能会被跳过或重复——所以不要这样做。例外：在 当前的实现，删除项目总是最安全的 最近被each()返回，所以下面的代码可以正常工作：

 while (($key, $value) = each %hash) {
    print $key, "\n";
    delete $hash{$key}; # This is safe
  }

但我想这里最好的选择就是使用grep：

@some_array = grep {
  # do something with $_
  some_condition($_);
} @some_array;