正则匹配顺序

shihuaqino1

$_ = 'three tournaments won';
$_ =~ /tour|to|th/;
print $&;
Perl中正则的匹配顺序应该是从左至右（tour->to->th），而tour就能匹配成功。按照这个逻辑，最后的输出应该是tour。可以事实上结果却是th！！！这是为什么呢？

3P党人

$_ = 'three tournaments won';
$_ =~ /tour|to|th/;
print $&;
Perl中正则的匹配顺序应该是从左至右（t ...
shihuaqino1 发表于 2011-08-31 20:50

八格， 正则引擎在目标字符串上从左到右推进，像外国政府不放弃他们任何一个在外国的侨民一样子，引擎也不会放过任何一次匹配的机会。所以，目标字符串最左边能匹配上的是
three tournaments won

ziyunfei

阿门.

shihuaqino1

回复 2# 3P党人


    Pel的正则引擎是表达式主导的，也就是说通过表达式去匹配文本；而且多选结构是按序排列的，也就是先完全匹配tour，如果失败再去匹配to，如果还是失败才去匹配th。这个是我的理解。
而按照你的说法，文本'three tournaments won'先拿一个t去匹配表达式，这时三个结构都符合，再拿h去匹配表达式，这是只有第三个结构才匹配，此时匹配成功，返回。这种匹配方式不就是文本主导的么？这和Perl的正则引擎是刚好相反的。

我知道我的理解中肯定有错误的地方，但不知道错在哪里了。

3P党人

你对 NFA 和 DFA 理解不对，而且市面上的正则引擎基本都是 NFA 的。

3P党人

类似于：

1. 
   
2. #!/usr/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $string = "three tournaments won";
   
8. my $pos = 0;
   
9. my $match;
   
10. my $pattern = sub { foreach my $elem (qw(tour to th)) { do { $match = $elem; return 1; } if (index($_[0], $elem) == 0) } return undef; };
    
11. 
    
12. while (defined $pos)
    
13. {
    
14.     last if ($pattern->(substr($string, $pos)));
    
15.     if ($pos  < length($string) + 1)
    
16.     {
    
17.         $pos++;
    
18.     }
    
19.     else
    
20.     {
    
21.         $pos = undef;
    
22.     }
    
23. }
    
24. 
    
25. print $match, "\n";
    

复制代码

jason680

回复  3P党人


    Pel的正则引擎是表达式主导的，也就是说通过表达式去匹配文本；而且多选结构是按序 ...
shihuaqino1 发表于 2011-08-31 21:54

试试.....(三个结果都不同)
$_ = 'toree thurnaments won';
if(m/thur|to|th/){
print "1re=$&\n";
}
if(m/thur/ | m/to/ | m/th/){
print "3|=$&\n";
}
if(m/thur/ or m/to/ or m/th/){
print "3or=$&\n";
}

$ perl re.pl
1re=to
3|=th
3or=thur

3P党人

试试.....(三个结果都不同)
$_ = 'toree thurnaments won';
if(m/thur|to|th/){
print "1re=$&\n";
...
jason680 发表于 2011-09-01 09:23

   
大哥,你要不要回去查查 | 是什么意思？

Perl_Er

/tour|to|th/g

回复 1# shihuaqino1

不加一个g你就只匹配了一次，也就是第一个th

Kitaisky

回复  shihuaqino1

不加一个g你就只匹配了一次，也就是第一个th
Perl_Er 发表于 2011-09-01 09:57

加了 /g， 你也匹配一次

if (/to|thur|th/g) { ...}