3 Perl - 列表赋值 - shift 和unshift 操作

shift 和unshift 操作

push 和pop 对数组的末尾进行操作（或者说数组右边有最大下标的元素，这依赖于你是怎样思考的）。相应的，unshift 和
shift 对一个数组的开头进行操作（数组的左端有最小下标的元素）。下面是一些例子：
@array = qw# dino fred barney #; $m = shift (@array); #$m 得到“dino”,@array 现在为(“fred”,“barney”) $n = shift @array; #$n 得到”fred”,@array 现在为（“barney”） shift @array; #@array 现在为空 $o = shift @array; #$o 得到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） 和pop 类似，如果其数组变量为空，则返回undef。