如何在Perl数组中插入元素并将其余元素向右移位？

要在Perl数组指定位置插入元素，让后续元素自动右移，最常用的是splice函数，也可以通过数组切片拼接实现。

方法一：使用splice函数 #

splice是Perl专门用于数组修改的内置函数，支持插入、删除、替换元素操作。针对你的需求，代码如下：

my @a = (2, 5, 4, 8, 1);
# 在索引2的位置插入42（Perl数组索引从0开始，对应你说的"position no.2"）
splice(@a, 2, 0, 42);
print "(@a)\n"; # 输出结果：(2, 5, 42, 4, 8, 1)

参数说明：

• 第一个参数是要修改的数组@a
• 第二个参数2是插入的起始索引
• 第三个参数0表示不删除任何元素（若设为大于0的数，会删除对应数量的元素）
• 第四个参数42是要插入的元素

方法二：数组切片拼接 #

通过拆分原数组为前后两部分，中间插入新元素后重新组合：

my @a = (2, 5, 4, 8, 1);
@a = (@a[0..1], 42, @a[2..$#a]);
print "(@a)\n"; # 输出结果一致

这里@a[0..1]取原数组前两个元素，@a[2..$#a]取原数组从索引2到末尾的元素（$#a是数组最后一个元素的索引），再把新元素42插在中间重新赋值给原数组。

注意：如果处理大型数组，splice效率更高，因为它直接在原数组上操作，不会创建临时数组；而切片拼接会生成多个临时数组，性能稍差。

内容的提问来源于stack exchange，提问作者yegor256