[perl]数据相关

perl变量： 

$a 代表变量a 

@a 代表数组a 

数组的增删改查如下： 

@a=("1" , "2" , "3"); 

可以如下表示： 

@a=qw( 1 2 3  ); 

1-2操作都是针对数组的末端 

1.取出数组最后一个元素： 

@array=5..9; 

$fred=pop(@array); 

此时fred=9，@array=5..8; 

2.向数组添加一个新元素： 

push(@array,0); 

@array=（5..9,0）; 

@others = qw /9 0 1 2/; 

push(@array,@others); 

3-4操作都是针对数组的首端 

3.取出数组第一个元素： 

unshift(@array,5); 

4.向数组头塞一个元素: 

shift（@array,5） 

5.对数组中间的数据进行增删 

@remove=splice @array ，1,2； 

删除数组array的第一个和第二个元素并把删除的数组赋值给remove 

@remove=splice @array ,1,2,qw(w q s) 

删除数组array的1,2元素，并且将wqs这个数组替换该位置 

@remove=splice @array,1,0,qw(w q s) 

不删除数组元素，并且将wqs这个数组插入到1号元素之前