Chinaunix首页 | 论坛 | 博客
  • 博客访问: 146935
  • 博文数量: 56
  • 博客积分: 245
  • 博客等级: 二等列兵
  • 技术积分: 520
  • 用 户 组: 普通用户
  • 注册时间: 2012-10-08 14:43
个人简介

慢慢来

文章分类

全部博文(56)

文章存档

2017年(5)

2016年(2)

2015年(6)

2014年(28)

2013年(5)

2012年(10)

我的朋友

分类: PERL

2013-11-20 11:06:21


my $s = 'abc';
my @arr = ('abc','ddd','123');

print 'exists' if( grep{$_ eq $s} @arr );
阅读(400) | 评论(0) | 转发(0) |
0

上一篇:SQL joins

下一篇:perl BEGIN{} END{}

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