专业背景：计算机科学 研究方向与兴趣: JavaEE-Web软件开发, 生物信息学, 数据挖掘与机器学习, 智能信息系统 目前工作: 基因组, 转录组, NGS高通量数据分析, 生物数据挖掘, 植物系统发育和比较进化基因组学
2016-10-28 13:17:28| 分类： perl&bioperl | 标签： |举报 |字号大中小 订阅
数组中没有类似hash的简单exists函数
A:
print "EXIST\n" if $value~~@array;
B:
print "EXIST\n" if grep {$value == $_ } @array;
C：使用类似c语言的风格，遍历这个数组，查找变量是否匹配。
foreach ( @arr)
{
if( $vv eq $_ )
{
print "$vv\n"
}
}
D：使用map，查找数组中是否含有该变量
map { if($vv eq $_) { print "$vv\n"} } @arr;
E：使用grep，查找数组中是否含有该变量
print( grep /^$vv$/, @arr );
F:
用grep
例如：
#!/usr/bin/perl
@array = ("str1", "str2" ) ;
$item = "str3";
if ( grep { $_ eq $item } @array) {
print "Have \n" ;
} else {
push @array , $item ;
print "Not have \n" ;
}
print "@array"."\n" ;
评论