Perl学习（十四）——数组操作总结 splice

Perl学习（十四）——数组操作总结 splice

下面总结一下，针对数组，splice的使用，下面是代码，注释已经写的很清楚了。

#!/usr/bin/perl -w

@array = 0..5;
print $array[0]."\n";
print $array[1]."\n";
print $array[2]."\n";
print $array[3]."\n";
print $array[4]."\n";
print $array[5]."\n";
print "==============================\n";

#splice 2个参数 对目标数组进行截取,并返回
#param1 数组本身
#param2 从某个位置开始splice,直到最后
@remove = splice @array,3;

print $array[0]."\n";
print $array[1]."\n";
print $array[2]."\n";
print $array[3]."\n";
print $array[4]."\n";
print $array[5]."\n";
print "==============================\n";
print $remove[0]."\n";
print $remove[1]."\n";
print $remove[2]."\n";
print $remove[3]."\n";
print $remove[4]."\n";


#splice 3个参数 对目标数组进行截取指定个数的元素,并返回
#param1 数组本身
#param2 从某个位置开始splice
#param3 删除的个数
@array1 = 0..5;
@remove1 = splice @array1,2,1;

print "==============================\n";
print $array1[0]."\n";
print $array1[1]."\n";
print $array1[2]."\n";
print $array1[3]."\n";
print $array1[4]."\n";
print $array1[5]."\n";

print "==============================\n";
print $remove1[0]."\n";

#splice 4个参数 对目标数组进行截取指定个数的元素,添加另一个输入到当前数组中,并返回删除的元素
#param1 数组本身
#param2 从某个位置开始splice
#param3 删除的个数
#param4 需要插入的数组

@array2 = 0..5;
@newarray2 = splice @array2,2,1,qw(aa bb cc);

print "==============================\n";
print $array2[0]."\n";
print $array2[1]."\n";
print $array2[2]."\n";
print $array2[3]."\n";
print $array2[4]."\n";
print $array2[5]."\n";
print $array2[6]."\n";
print $array2[7]."\n";
print $array2[8]."\n";

print "==============================\n";
print $newarray2[0]."\n";
print $newarray2[1]."\n";

运行效果：