perl 正则问题

zhaobin81

关于 ?:   ?!  ?=  是什么意思能不能解释一下
最好举例说明一下
谢谢了

Mr-Summer

羊驼书上写的很清楚的。
什么负向，正向查找的。
？：是匹配不获取

珞水的大叔

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. #?:   ?!  ?=   这三个都必须与括弧搭配才有效，格式如:(?:...)  (?=...)  (?!...)
   
6. 
   
7. my $lala = "0123456789abcde";
   
8. 
   
9. #(?:) 表示非捕获型括弧，相对而言的是捕获型括弧()，区别如下
   
10. {
    
11. $lala =~ /(0).*(3).*(7).*(a)/;
    
12. print "<$1><$2><$3>\n";     #结果: <0><3><7>
    
13. $lala =~ /(0).*(?:3).*(7).*(a)/;
    
14. print "<$1><$2><$3>\n";    #结果: <0><7><a>
    
15. }
    
16. 
    
17. #(?=) 表示肯定型顺序环视
    
18. {
    
19.     if($lala =~ /1(?=2)/){ print "OK\n" } else { print "buOK\n" } #查找后面是2的1，结果: OK
    
20.     if($lala =~ /1(?=5)/){ print "OK\n" } else { print "buOK\n" } #查找后面是5的1，结果: buOK
    
21. }
    
22. 
    
23. #(?!) 表示否定型顺序环视
    
24. {
    
25.     if($lala =~ /1(?!2)/){ print "OK\n" } else { print "buOK\n" } #查找后面不是2的1，结果: buOK
    
26.     if($lala =~ /1(?!5)/){ print "OK\n" } else { print "buOK\n" } #查找后面不是5的1，结果: OK
    
27. }

复制代码