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