perl里如何判断一个元素是否在数组里？

kiangz9

perl里如何判断一个元素是否在数组（list）里？map好像不行，比如eth1和eth1.11就会误判。
谢谢。

flw

grep

kiangz9

不好意思我是新手，看了一下grep的说明还是没看懂，能不能说详细点？
比如我有一个list
@ifs=(eth1 eth2.45 eth3);
然后有个变量 $iface="eth2";
我要判断$iface在不在@ifs里（应该是不在的），怎么弄？用map /$iface/,@ifs好像是不对的。

flw

if ( grep { $_ eq $iface } @ifs ){
    # 存在
}

alexru

1. #!/usr/bin/perl
   
2. @ifs=qw(eth1 eth2.45 eth3);
   
3. $it=grep /eth2$/, @ifs;
   
4. if($it==0){
   
5.         print "NO\n";
   
6. }
   
7.         else{
   
8.                 print "YES\n";
   
9.         }

复制代码

ouput

1. 
   
2. NO
   

复制代码

[ 本帖最后由 alexru 于 2006-11-9 18:15 编辑 ]

flw

原帖由 alexru 于 2006-11-9 18:14 发表

1. #!/usr/bin/perl
   
2. @ifs=qw(eth1 eth2.45 eth3);
   
3. $it=grep /eth2$/, @ifs;
   
4. if($it==0){
   
5.         print "NO\n";
   
6. }
   
7.         else{
   
8.                 print "YES\n";
   
9.         }

复制代码

ouput

1. 
   
2. NO
   

复制代码

不要什么问题都用正则表达式来解决，有时候试试比较运算符，可能更加符合题意。

alexru

向法师学习！

兰花仙子

原帖由 kiangz9 于 2006-11-9 17:18 发表
perl里如何判断一个元素是否在数组（list）里？map好像不行，比如eth1和eth1.11就会误判。
谢谢。

偶们也有这样的大型数组，存储着上亿个整数（IP地址转换来的）。快速的成员测试就是用二分查找。

kiangz9

Ok，谢了啊。