hash 的一个问题，帮忙啊！

robinylp

my @statis;

my %test = (     "match" => qr/hallo/,----想在这里匹配多个 比如不只是hallo 还有nihao 也就是或运算  qr/hallo 或者 nihao/
                        "hosts" => ".*"
);

push(@statis, \%test);

如上述。

请帮忙啊！


谢谢了！

jason680

my @statis;

my %test = (     "match" => qr/hallo/,----想在这里匹配多个 比如不只是hallo 还有nihao  ...
robinylp 发表于 2011-05-04 17:39

qr/hallo|nihao/

wind_ch

這是正則的問題還是hash的問題?

robinylp

qr/hallo|nihao/
jason680 发表于 2011-05-04 17:42

先谢谢了！   

如果不只是单词，比如要匹配qr/this is a test| that works/ 只是匹配了第一个。有什么办法吗？

想要达到的目的是：qr/(this is a test)|(that works)/

robinylp

這是正則的問題還是hash的問題?
wind_ch 发表于 2011-05-04 17:42

    我觉得是，但是在hash中的话，就不知道了。

jason680

先谢谢了！   

如果不只是单词，比如要匹配qr/this is a test| that works/ 只是匹配了第一个。有 ...
robinylp 发表于 2011-05-04 18:43

$ cat qr.pl

1. 
   
2. use strict;
   
3. use warnings;
   
4. while(<DATA>){
   
5.   my $re = qr/this is a test| that works/;
   
6.   if(m/$re/){
   
7.     print "    match:$_";
   
8.   }
   
9.   else{
   
10.     print "NOT match:$_";
    
11.   }
    
12. 
    
13. }
    
14. __DATA__
    
15. this :1
    
16. this is :2
    
17. this is a :3
    
18. this is a test :4
    
19. that :5
    
20. that works :6
    
21. that works :7
    

复制代码

注: DATA第七行 " that works :7"前有一个空格
(上面的code看不到)

$ perl qr.pl
NOT match:this :1
NOT match:this is :2
NOT match:this is a :3
    match:this is a test :4
NOT match:that :5
NOT match:that works :6
    match: that works :7

robinylp

$ cat qr.pl注: DATA第七行 " that works :7"前有一个空格
(上面的code看不到)

$ perl qr.pl
NO ...
jason680 发表于 2011-05-05 09:31

    感谢啊！