删除 Perl 数组中多个非顺序元素的“最佳”方法是什么？

Question

在执行脚本时，我需要删除数组的多个元素（这些元素不是连续的）。我将在执行脚本时获取我的数组和索引。

例如：

我可能会得到一个数组和索引列表，如下所示：

my @array = qw(one two three four five six seven eight nine);

my @indexes = ( 2, 5, 7 );

我有以下子程序可以做到这一点：

sub splicen {
    my $count     = 0;
    my $array_ref = shift @_;

    croak "Not an ARRAY ref $array_ref in $0 \n"
        if ref $array_ref ne 'ARRAY';

    for (@_) {
        my $index = $_ - $count;
        splice @{$array_ref}, $index, 1;
        $count++;
    }

    return $array_ref;
}

如果我像下面这样调用我的子程序：

splicen(\@array , @indexes);

这对我有用，但是：

有没有更好的方法来做到这一点？

Answer 1

如果改为从数组末尾拼接，则不必维护偏移量$count：

sub delete_elements {
    my ( $array_ref, @indices ) = @_;

    # Remove indexes from end of the array first
    for ( sort { $b <=> $a } @indices ) {
        splice @$array_ref, $_, 1;
    }
}

Answer 2

另一种思考方式是构建一个新数组而不是修改原始数组：

my @array   = qw(one two three four five size seven eight nine);
my @indexes = (2, 5, 7);
my %indexes = map { $_ => 1 } @indexes;
my @kept    = map { $array[$_] } grep { ! exists $indexes{$_} } 0 .. $#array;