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

说到 Perl 数组操作，有个很容易搞混的点：到底是把元素设成 undef，还是真正从数组里把它删掉？乍一看好像差不多，但效果天差地别。下面我们一步步拆解，顺便把这两个概念彻底掰扯清楚。

先从一个最基础的例子说起：

use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);
print Dumper @dwarfs;

用 Data::Dumper 打印出来，是这样的：

$VAR1 = [
          'Doc',
          'Grumpy',
          'Happy',
          'Sleepy',
          'Sneezy',
          'Dopey',
          'Bashful'
        ];

将元素赋值为 undef

先试试把某个元素设成 undef。可以直接用 undef() 函数的返回值：

use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);

$dwarfs[3] = undef;

print Dumper @dwarfs;

这段代码会把数组中索引为 3 的元素（也就是第四个元素）赋值为 undef。注意看输出——数组的长度没有任何变化：

$VAR1 = [
          'Doc',
          'Grumpy',
          'Happy',
          undef,
          'Sneezy',
          'Dopey',
          'Bashful'
        ];

同样的效果，也可以直接对数组元素使用 undef 函数：

use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);

undef $dwarfs[3];

print Dumper @dwarfs;

结果一模一样。所以结论很明确：$dwarfs[3] = undef; 和 undef $dwarfs[3]; 做的事情完全相同——只把值清空，但位置依然留着。

使用 splice 从数组移除元素

真正要“删除”一个元素，得请出 splice 函数。它下手更狠，直接把元素从数组里连根拔掉：

use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);

splice @dwarfs, 3, 1;

print Dumper @dwarfs;
$VAR1 = [
          'Doc',
          'Grumpy',
          'Happy',
          'Sneezy',
          'Dopey',
          'Bashful'
        ];

看，数组因为移除了中间的一个元素，长度缩短了 1。原来的位置彻底消失了，后面的元素自动前移。

到这里就一目了然了：undef 只是把值擦掉，相当于在座位牌上写个“空座”；而 splice 是把整个座位搬走，后面的椅子依次往前挪。根据实际需求选择就好——如果只是清空值但保留位置，用 undef；如果要从数组中永久移除某个元素，那就毫不犹豫上 splice。