删除Perl数组的元素

Question

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

Answer 1

您正在寻找Perl内置函数拼接,它允许您选择一个起点,要删除的元素数量以及可选的替换列表.

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