【已解决】perl正则表达式(?PARNO)的机制问题

huycwork

最近为了匹配括号去看了下perldoc，然后出现了一个问题，还请各位大神解惑一下
根据perldoc perlre的这一节，有以下扩展：
(?PARNO) (?-PARNO) (?+PARNO) (?R) (?0)
其中PARNO表示匹配的index，所以尝试构造了以下reg：

1. $re = qr/(1)|(2(?4))|(3(?2))|(4(?1))/;
   
2. "63241324157" =~ $re;

复制代码

匹配结果是4个匹配，匹配到了：63241324157
符合预期，但是改为这样：

1. $re = qr/(1(?3))|(2(?4))|(3(?2))|(4(?1))/;
   
2. "63241324157" =~ $re;

复制代码

匹配为0，大惑不解。
然后看到(?R)匹配整个表达式，就尝试修正成这样：

1. $re = qr/(1(?R))|(2(?4))|(3(?2))|(4(?1))/;
   
2. "63241324157" =~ $re;

复制代码

匹配依然为0，又大惑。
但是，但是我这么改一下：

1. $re = qr/(1(?R))|(2(?4))|(3(?2))|(4(?1))|(5)/;
   
2. "63241324157" =~ $re;

复制代码

居然匹配了5个结果：63241324157
然后改一下：

1. $re = qr/(1(?3))|(2(?4))|(3(?2))|(4(?1))|(5)/;
   
2. "63241324157" =~ $re;

复制代码

匹配结果也是5（这个不是右边$&那个5），但是$`,$&,$'给出的结果是632413241,5,7

顺便说一下，上文说的匹配结果是指下面最左边那个值：

1. $values = @values = ("string" =~ $re)

复制代码

Monox

递归操作需要有终止条件（多个条件用|连接），这是你前面几个匹配不成功的原因。而你后面给的例子里的5就是唯一的终止条件，如果匹配成功的话它当然（至少）会是匹配成功部分的最后一个字符。

huycwork

回复 2# Monox


    理解了，十分感谢！