arrays - Perl中删除数组元素的 'right'方式是什么？

Question

我有一个包含一组元素的数组。元素的顺序无关紧要 - 我使用数组，因为它是我所知道的 Perl 中最简单的数据结构。

my @arr = ...
while (some condition) {
    # iterate over @arr and remove all elements which meet some criteria
    # (which depends on $i)
}

我知道 splice()但我认为在迭代时使用它并不好。 delete对于数组元素似乎已弃用。也许使用 grep在 @arr进入自身( @arr = grep {...} @arr )？

这里的最佳做法是什么？

也许使用散列(虽然我真的不需要它)？

Answer 1

您使用 grep 的想法很好

@arr = grep { cond($i++); } @arr;