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,qw(w q s) 不删除数组元素，并且将wqs这个数组插入到1号元素之前