perl中shift 和unshift 操作

perl中shift 和unshift 操作

#!/usr/bin/perl -w
@array = qw#one two three#;
$m = shift (@array); #$m 得到“one”,@array 现在为(“two”,“three”)
shift @array;???? #@array?现在为（“three”）
shift @array;???? #@array?现在为空
$n = shift @array;??? #$n 得到undef,@arry 仍为空
unshift(@array,5);???? #@array?现在为（5）
unshift @array,4;????? #@array?现在为(4,5) @others = 1..3; unshift @array,@others; #array 现在为（1,2,3,4,5）