Chinaunix

标题: 【已解决】perl正则表达式(?PARNO)的机制问题 [打印本页]

作者: huycwork 时间: 2013-12-01 21:11
标题: 【已解决】perl正则表达式(?PARNO)的机制问题
本帖最后由 huycwork 于 2013-12-02 12:35 编辑

最近为了匹配括号去看了下perldoc，然后出现了一个问题，还请各位大神解惑一下

根据perldoc perlre的这一节，有以下扩展：
(?PARNO) (?-PARNO) (?+PARNO) (?R) (?0)
其中PARNO表示匹配的index，所以尝试构造了以下reg：

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

复制代码

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

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

复制代码

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

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

复制代码

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

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

复制代码

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

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

复制代码

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

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

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

复制代码

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

作者: huycwork 时间: 2013-12-02 12:34
回复 2# Monox

理解了，十分感谢！

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)