用perl如何实现与数组里的任一元素匹配？

MOMOyyNix

比如我的字符串为 111_111_01_02这样  01_02这个字符段会有变化  我想当它和数组里的  （01_02,03_04,05_06）任一元素匹配的时候就算match  perl能实现么

其实就是SQL 里的 In（）功能

Perlvim

能

iamlimeng

当然能

MOMOyyNix

能讲解一下实现的方法么？

sjdy521

1. use 5.010;
   
2. "01_02" ~~ (01_02,03_04,05_06);

复制代码

MOMOyyNix

这样好像不行也  只有最后一个可以判断到  前面的match判断不到

1. use 5.010;
   
2. 
   
3. 
   
4. @array=("-16_+09","-19_-66","-16_+06","+02_+05");
   
5. 
   
6. foreach $array(@array){
   
7. 
   
8.                 if($array ~~ ("-16_+09","-19_-06","-18_-08","+02_+05"))
   
9.                 {$edged ="bad"} else {$edged ="good"}
   
10.                
    
11.                
    
12.                 print "$array\t$edged\n";
    
13.                 }

复制代码

shijiang1130

1. @array=("-16_+09","-19_-66","-16_+06","+02_+05");
   
2. foreach $array(@array){
   
3.              if ( /'-16_+09'|'-19_-06'|'-18_-08'|'+02_+05'/ ){
   
4.                 $edged ="bad"; }
   
5.              else {
   
6.                 $edged ="good"; }
   
7.                 print "$array\t$edged\n";
   
8.                 }
   

复制代码

MOMOyyNix

shijiang1130 发表于 2012-03-11 18:45

这样只是把所有元素强行标成了good

sjdy521

回复 6# MOMOyyNix


    sorry，是我的代码写的不规范，误导你直接依葫芦画瓢了。。
这样子说明下吧，perl里有个智能匹配的操作符叫 ~~
可以用来判断一个标量是否存在一个数组中，用法就是

$a ~~ @a

你自己查一下就知道了

shijiang1130

1. $a    = '111_111_01_02';
   
2. $b    = substr( $a, -5, 5 );
   
3. %hash = ();
   
4. @test = ( '-16_+09', '-19_-06', '-18_-08', '+02_+05', '01_02' );
   
5. foreach $item (@test) { $hash{$item} = 1; }
   
6. print "ok\n" if exists( $hash{$b} );
   

复制代码