PERL的数组操作

        此次我们说下，关于PERL中数组的头尾操作，当然这是在不使用索引的情况下，类似与汇编当中，PUSH和pop是在尾部，或者说在数组的右边进行的添加或者删除操作，

演示代码如下：

   

@array=5..9;
        $fred=pop(@array);#原数组array中是 5 6 7 8 9，pop之后则是5 6 7 8
        print $fred;
        print"\n";
        $barney=pop(@array);#同样的在此去除最后一个是5 6 7 
        print $barney;
        print"\n";
        push @array,1..9;#在数组array的最后添加一个数组，1 2 3 4 5 6 7 8 9
        print @array;#整个数组的输出

在数组的尾部进行操作，我们说完了，现在说下在数组的头部进行操作的，shift和unshift  

演示代码如下：

@array=qw(dino fred barney);
 $m=shift(@array);
 print $m;
 print "\n";
 $n=shift(@array);
 print $n;
 print "\n";
 shift(@array);
 print @array;
 unshift(@array,5);
 print @array;
 print "\n";
 unshift(@array,4);
 print @array;
 print "\n";
 @other=1..3;
 unshift(@array,@other);
 print @array;