请教一个正则表达式

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

11^# flw 发表于 2008-04-01 12:48

QUOTE:

原帖由韧体于 2008-4-1 12:30 发表
好了，问题已经解决了，刚才就是迷不过劲了~谢谢flw版的指点

索取已成习惯，意识不到奉献？

韧体

UID: 42723
帖子: 31
积分: 71
在线时间: 1 小时

12^# 韧体发表于 2008-04-01 13:10

哎，刚刚证明还是不行，看来没办法靠正则来解决
因为有些文档还包含了
(AAA)dfwef
(AAA)dfewffwfrfrwrfwf
fwsfwrfrwfr(CCC)
fwfwfwsfws(CCC)
这样的套嵌，还是没办法只取
(AAA)dfewffwfrfrwrfwf
fwsfwrfrwfr(CCC)
看来只能另想他法了

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

13^# ly5066113 发表于 2008-04-01 13:57

QUOTE:

原帖由韧体于 2008-4-1 13:10 发表
哎，刚刚证明还是不行，看来没办法靠正则来解决
因为有些文档还包含了
(AAA)dfwef
(AAA)dfewffwfrfrwrfwf
fwsfwrfrwfr(CCC)
fwfwfwsfws(CCC)
这样的套嵌，还是没办法只取
(AAA)dfewffwfrfrwrfwf
fwsfwr ...

据说正则里有最小匹配，好象可以试试。

韧体

UID: 42723
帖子: 31
积分: 71
在线时间: 1 小时

14^# 韧体发表于 2008-04-01 14:18

QUOTE:

原帖由 ly5066113 于 2008-4-1 13:57 发表

据说正则里有最小匹配，好象可以试试。

试了不行，因为文件内有很多不规则套嵌

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

15^# __lxmxn__ 发表于 2008-04-02 03:49

这样的效果吗？

[Copy to clipboard] [ - ]

CODE:

#! perl -w
use strict;

open my $fh,"<errs.txt";
undef $/;

my $context=<$fh>;
while( $context =~ m/$AAA$(?>[^()]+)$CCC$/gs ) {
print '-->',$&,"\n";
}

close $fh;