删除Perl数组的元素

Question

有没有一种简单的方法可以删除Perl数组中的n个连续元素(从而缩短它的长度)？

Answer 1

您正在寻找Perl内置函数splice，它允许您选择一个起点、要删除的元素数量和一个可选的替换列表。

my @array = 0 .. 9;

my @slice = splice @array, 3, 3;

say "@slice";   # prints "3 4 5"
say "@array";   # prints "0 1 2 6 7 8 9"
say 0 + @array; # prints 7

Answer 2

您可以使用splice删除数组元素。

Answer 3

正如其他答案所指出的，splice是有效的。作为另一种方法(毕竟是TIMTOWTDI)，如果您有要删除的n连续元素的上下级索引，那么可以通过grep和数组切片来完成。例如：

use strict;
use warnings;

my @a=("a".."z");

#We will remove the letters "e" through "u"
my $lower=4;
my $upper=20;
print "$_\n" foreach(@a[grep{$_<$lower or $_>$upper}0..$#a]);

输出为：

a
b
c
d
v
w
x
y
z