Perl语言中递归正则表达式的实现
一般使用Perl的扩展特性(??{...})实现，例如要捕获配对的小括号可以这样写：
$re=qr/\((?:(?>[^()]+)|(??{$re}))*\)/;
这样$re就包含了一个匹配配对小括号的递归正则表达式。
【作者: chaoslawful】【访问统计:】【2005年02月11日 星期五 21:25】【注册】【打印】
Trackback
你可以使用这个链接引用该篇文章 http://publishblog.blogchina.com/blog/tb.b?diaryID=703767
回复
|
- 评论人：mosjiin
2007-03-26 17:55:24
|
|||
对了,应该是: $reg = (?-xism:^vaule$);
|
||||
|
|
- 评论人：mosjin
2007-03-26 17:47:01
|
|||
请问有没有具体的例子, 可以用一下?
|
||||
