Perl中怎样从数组中删除某个值？

1. 使用 `grep` 函数（推荐）

my @array = (1, 2, 3, 4, 2, 5);
my $value_to_remove = 2;

# 返回所有不等于指定值的元素
@array = grep { $_ != $value_to_remove } @array;
# 或者使用字符串比较
@array = grep { $_ ne $value_to_remove } @array;

2. 使用循环和 `splice`

my @array = (1, 2, 3, 4, 2, 5);
my $value_to_remove = 2;

for (my $i = 0; $i < @array; $i++) {
    if ($array[$i] eq $value_to_remove) {
        splice(@array, $i, 1);
        $i--;  # 调整索引，因为数组缩短了
    }
}

3. 使用循环从后向前遍历

避免索引调整问题：

my @array = (1, 2, 3, 4, 2, 5);
my $value_to_remove = 2;

for (my $i = $#array; $i >= 0; $i--) {
    if ($array[$i] eq $value_to_remove) {
        splice(@array, $i, 1);
    }
}

4. 删除第一个匹配值

my @array = (1, 2, 3, 4, 2, 5);
my $value_to_remove = 2;

# 找到第一个匹配的索引
if (my ($index) = grep { $array[$_] eq $value_to_remove } 0..$#array) {
    splice(@array, $index, 1);
}

5. 使用 List::Util 模块

use List::Util 'first';
use List::MoreUtils 'apply';

my @array = (1, 2, 3, 4, 2, 5);
my $value_to_remove = 2;

# 删除所有匹配值
@array = apply { $_ ne $value_to_remove ? $_ : () } @array;

6. 性能比较示例

#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);

my @array = (1..1000, 2, 3, 4, 2, 5);
my $value = 2;

cmpthese(-1, {
    grep => sub {
        my @temp = @array;
        @temp = grep { $_ != $value } @temp;
    },
    splice_forward => sub {
        my @temp = @array;
        for (my $i = 0; $i < @temp; $i++) {
            if ($temp[$i] == $value) {
                splice(@temp, $i, 1);
                $i--;
            }
        }
    },
    splice_backward => sub {
        my @temp = @array;
        for (my $i = $#temp; $i >= 0; $i--) {
            if ($temp[$i] == $value) {
                splice(@temp, $i, 1);
            }
        }
    },
});