函数splice的用法
格式
splice(@array,offset,length,list) #在数组@array的offset的位置插入list,同时删除从 offset开始长度为length个元素。list上下文返回操作 后的数组,scalar上下文返回操作后的数组最后一个元 素。
1、缺省list,即splice(@array,offset,length) #删除数组@array从offset开始长度为length个元素
2、缺省list和length,即splice(@array,offset) #删除数组@array从offstage开始到最后
3、缺省list、length和offset,即splice(@array) #删除数组@array所有元素
说明:(1)若length为负数,则删除的数组@array中的元素为:从offset开始,到从后往前数length个元素。如下例:
my @rocks = (1..20);
my @tmp = qw(a b c);
print "@rocks\n";
splice(@rocks,2,-3,@tmp);
print "@rocks\n";
运行结果为1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
1 2 a b c 18 19 20
(2)若offset为负数,则以数组@array的尾部元素为起始点,同样删除offset后的length个元素。如下例:
my @rocks = (1..20);
my @tmp = qw(a b c);
print "@rocks\n";
splice(@rocks,-7,3,@tmp);
print "@rocks\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 6 7 8 9 10 11 12 13 a b c 17 18 19 20
(3)若offset越界,perl会提示警告,但会在尾部插入list。如下例:
my @rocks=(1..20);
my @tmp = qw(a b c);
print "@rocks\n";
splice(@rocks,22,-3,@tmp);
print "@rocks\n";
运行结果为splice() offset past end of array at C:\Users\tang\Documentstest.pl line 8.
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 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 a b c