[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号元素之前