Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1365277
  • 博文数量: 239
  • 博客积分: 5909
  • 博客等级: 大校
  • 技术积分: 2715
  • 用 户 组: 普通用户
  • 注册时间: 2010-07-24 20:19
文章分类

全部博文(239)

文章存档

2014年(4)

2013年(22)

2012年(140)

2011年(14)

2010年(59)

我的朋友

分类:

2010-10-15 15:04:12

1.利用grep删除

my @a=(1,2,1,2,1,2,1,3);
my %hash;
my @b = grep { ++$hash{$_} < 2 } @a;
print @b;


2.利用Hash的key的唯一性

my %hash;
my @a=(1,2,2,3);
@hash{@a}=();
my @b=keys %hash;
print @b;


3.遍历数组,智能匹配

my @a=(1, 2, 3, 2);
foreach (0 .. $#a)
{
  my $elem = shift(@a);
  push(@a, $elem) if (not $elem ~~ @a);
}

print @a;


阅读(1297) | 评论(1) | 转发(1) |
0

上一篇:Job & Career

下一篇:python基本语法

给主人留下些什么吧!~~

chinaunix网友2010-10-15 17:56:18

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com