perl的正则匹配算法是深度优先？

Pro_sky

1. 
   
2. #!/usr/bin/perl
   
3. my $str = "VALUE 1 1
   
4. aaa
   
5. bbb
   
6. END
   
7. ";
   
8. 
   
9. if($str =~ /^VALUE \d+ \d+[.\r\n]*END\r\n/g) {
   
10.      print "OK\n";
    
11. }
    
12. else {
    
13.     print "failed\n"
    
14. }
    

复制代码

输出failed,怎么回事呢?是不是[.\r\n]*把后面的END都匹配进去了，有什么方法让这个匹配成功吗？谢谢了

Perl_Er

在末尾加s试试 /s
改了一下

1. #!/usr/bin/perl
   
2. my $str = "VALUE 1 1
   
3. aaa
   
4. bbb
   
5. END
   
6. ";
   
7. 
   
8. if($str =~ /^VALUE \d+ \d+[\r\n].*END[\r\n]/s) {
   
9.      print "OK\n";
   
10. }
    
11. else {
    
12.     print "failed\n"
    
13. }
    

复制代码

[ 本帖最后由 Perl_Er 于 2009-7-24 17:15 编辑 ]

Pro_sky

不行啊

Pro_sky

嗯，牛比，可以了！谢谢哈

iceberg77

[.\r\n]只是表示".","\r","\n"三个字符的集合

blackold

学习学习!

qshllxfx

为什么 . 和 \r\n 放在一起就不行呢？

blackold

不是.的问题，是s的问题。

qshllxfx

明白了，[]里的.和[]外的.是不一样的，呵呵

maklive8

谁知道\r和\n的区别？