Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2097438
  • 博文数量: 414
  • 博客积分: 10312
  • 博客等级: 上将
  • 技术积分: 4921
  • 用 户 组: 普通用户
  • 注册时间: 2007-10-31 01:49
文章分类

全部博文(414)

文章存档

2011年(1)

2010年(29)

2009年(82)

2008年(301)

2007年(1)

分类:

2008-07-20 15:55:46

####################################################################
# unshift 和shift 对一个数组的开头进行操作(数组的左端有最小下标的元素)。
# unshift 和shift,如果其数组变量为空,则返回undef。
####################################################################
#!/usr/bin/perl -w
@array = qw#one two three#;
$m = shift (@array); #$m 得到“one”, @array 现在为(“two”, “three”)
shift @array;    现在为(“three”)
shift @array;    现在为空
$n = shift @array;    #$n 得到undef, @arry 仍为空
unshift(@array,5);    现在为(5)
unshift @array,4;     现在为(4,5)
@others = 1..3;
unshift @array, @others; #array 现在为(1,2,3,4,5)
阅读(1403) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~