perl替换数组元素

Perl 中数组元素替换使用 splice() 函数，语法格式如下：

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

参数说明：

@ARRAY：要替换的数组。
OFFSET：起始位置。
LENGTH：替换的元素个数。
LIST：替换元素列表。
以下实例从第6个元素开始替换数组中的5个元素:

实例

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

执行以上程序，输出结果为：

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