PERL语言入门:第三章:列表与数组:pop,push, shit, unshit, splice函数

#!/usr/bin/perl -l
#列表赋值时，记得加括号
#左边比右边多， 多出来的会被赋于undef
#右边比左边折， 多出来的会被忽略

@array = 2..9;
pop @array or pop (@array)//如果加不加括号不影响的话,perl中可以不加
push @array
pop出从尾部弹出, push为从尾部放入

shit/unshit
shit @array or unshit @array
shit为从首部弹出, unshit为从首部放入， 对应pop与push

如果要从中间操作呢， 用splice
第一个参数为要操作的数组
第二个参数为要操作的开始位置
第三个参数为要操作的长度，如果只给出前两个， 默认会从指定位置一直到数组尾部
第四个参数是替换数组中的元素

splice @array,2 //从第二个元素开始删除元素，一直到数组尾部
splice @array, 2, 3 //删除第二个元素到第三个
splice @array, 2, 8, qw(test)//把2到8中的元素去掉并把test插入其中

#!/usr/bin/perl -w
#定义一个数组
@array = 2..9;
print "@array\n";
#拿掉一部分
splice @array, 2,4;
print 'splice @array, 2, 4:', "\n";
print "@array\n";
#.........................
@array = 2..9;
print "@array\n";
#拿掉一部分
splice @array, 2;
print 'splice @array, 2:', "\n";
print "@array\n";
#.........................
@array = 2..9;
print "@array\n";
#拿掉一部分
#超出数组长度试试
splice @array, 2, 100;
print 'splice @array, 2:', "\n";
print "@array\n";
#长度太大会自动到数组尾
#.........................
@array = 2..9;
print "@array\n";
#拿掉一部分
#超出长度试试
splice @array, 100 ;
print 'splice @array, 100:', "\n";
print "@array\n";
#超出长度不会操作
#.........................
@array = 2..9;
print "@array\n";
#拿掉一部分
#向后试试
splice @array, 5, -7 ;
print 'splice @array, 5, -7:', "\n";
print "@array\n";
#负数索引在这里不起作用

#........................
@array=1..10;
print "@array";
splice @array, 1, 1, qw(this is a test);
print q/splice @array, 1, 1, qw(this is a test):/, "\n";
print "@array\n";