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