####################################################################
#!/usr/bin/perl -w
# unshift 和shift 对一个数组的开头进行操作(数组的左端有最小下标的元素)。 # unshift 和shift,如果其数组变量为空,则返回undef。 #################################################################### @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) |
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10522815/viewspace-235645/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10522815/viewspace-235645/