在 Perl 中替换数组元素

现在我们来介绍另外一个名为 splice() 的函数，其语法如下所示 −

语法

splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

此函数将移除 @ARRAY 由 OFFSET 指定的元素和 LENGTH，并用 LIST（如果指定）替换它们。最后，它将从数组移除的元素返回。以下是示例 −

示例

 在线演示

#!/usr/bin/perl
@nums = (1..20);
print "Before - @nums\n";
splice(@nums, 5, 5, 21..25);
print "After - @nums\n";

输出

这会产生以下结果 −

Before - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
After - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

在此处，原本的替换是从第 6 个数字开始，之后 6 到 10 这 5 个元素被替换为了 21、22、23、24 和 25。

更新于： 2019 年 11 月 29 日

492 次浏览

开启您的职业生涯

完成课程后获得认证

开始
广告