如何在Perl的列表中间添加项目

Question

如何在Perl最新版本的列表中间添加项目。如果有任何方法，请帮助我，例如：

@array=qw(apple mango waterlemon pineapple lemon);
print("@array\n");

这是代码，现在我需要在列表中添加带有index [3]的“ sapota”项。我该如何添加

Answer 1

拼接就是您所需要的。

splice @array, 3, 0, 'sapota';