请教正则表达式的难题，谢谢

autumn_leaf

给你看下我的结果，看你有兴趣升级没有。
zhlong8 发表于 2011-05-25 10:05

    谢谢，不行哦 PERL 5.12
echo 'ABC(10ASDKJFD(DSF)DLKFA"(11"ADF10);' |perl -ne '{while($_=~/ABC\(([^()]*|[^(]*\([^()]*\)[^)]*){0,}\)/sg){print $&,"\n"}}';
报错：“ 不是内部或外部命令，也不是可运行的程序或批处理文件。”

say for $s =~ /ABC(\((?:[^()]*|(?1))*\))/gx;
for(@reg){

    print $_,"\n";

}
啥也没有

autumn_leaf

请教 print $& 这个  $&是啥意思啊？数组，标量？

zhlong8

谢谢，不行哦 PERL 5.12
echo 'ABC(10ASDKJFD(DSF)DLKFA"(11"ADF10);' |perl -ne '{while($_=~/ ...
autumn_leaf 发表于 2011-05-25 12:13

    这么用的

use 5.012;
my $s = 'ABC(dfjal()dflaj(aldfj)) ,c ABC(df())';

say for $s =~ /ABC(
        \(
            (?:
                [^()]*|
                (?1)
            )*
        \)
        )/gx

autumn_leaf

这么用的

use 5.012;
my $s = 'ABC(dfjal()dflaj(aldfj)) ,c ABC(df())';

say for $s =~  ...
zhlong8 发表于 2011-05-25 12:17

谢谢啊，这样好像可以了
可是和 while($_=~/ABC\(([^()]*|[^(]*\([^()]*\)[^)]*){0,}\)/sg){print $&,"\n"}
是一样的效果吗？
没怎么看明白

yinyuemi

回复 22# autumn_leaf

1. #!/bin/perl
   
2. my $str='ABC(dfjal()dflaj(aldfj)) ,c ABC(df())';
   
3. 
   
4. 
   
5. while ($str=~/ABC\(([^(")]*|[^(]*\([^()]*\)[^)]*){0,}\)/sg) {
   
6. print $&,"\n";
   
7. }

复制代码

autumn_leaf

回复  autumn_leaf
yinyuemi 发表于 2011-05-25 13:11

    谢谢
这样就不对了
my $str='ABC(("(())())"dfjal()dflaj(aldfj)) ,c ABC(df());';

简单说，ABC是个函数，于是ABC肯定是以 (开头，)结束 '(' 和 ')'中间可以是任意字符，也可能有 '('和')'

类似于UltraEdit里的括号配对功能，高级->配置->语法高量->选中“启用自动使用成对括号”

yinyuemi

回复 27# autumn_leaf


    的确是，感觉这种很难用普通正则解决， 本人水平也有限，等高人吧，zhlong8 的那个递归的应该可以。

autumn_leaf

回复  autumn_leaf


    的确是，感觉这种很难用普通正则解决， 本人水平也有限，等高人吧，zh ...
yinyuemi 发表于 2011-05-25 13:31

    那个也不行，多加几个换行程序执行会死掉的

autumn_leaf

回复  autumn_leaf


    的确是，感觉这种很难用普通正则解决， 本人水平也有限，等高人吧，zh ...
yinyuemi 发表于 2011-05-25 13:31

    我想了下，可以认为 ABC(....) 括号中间肯定是成对出现的()
比如 ABC(111XXX(200)SYYY()S) 等
不会出现 ABC("))((AA"AA) 这样的情况

zhlong8

那个也不行，多加几个换行程序执行会死掉的
autumn_leaf 发表于 2011-05-25 13:40

    怎么个死掉法？给点测试数据