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

yinyuemi

回复 30# autumn_leaf


   写了个awk的，你试试行不？

1. echo $str |awk -vFS= '{for(i=1;i<=NF;i++) {if($i=="\""){b++;if(b==2&&v~/".*[()].*/){j--}};if($i=="("){j++};if($i==")"){j--};v=v$i;if(j==0){if(length(v)>1){print v;v=""}else{v=""}}}}'
   

复制代码

autumn_leaf

怎么个死掉法？给点测试数据
zhlong8 发表于 2011-05-25 14:09

    my $str='ABC(10ASDKJFD(DSF)DLKFA"(11"ADF10);
ABC(sdf


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

执行一下就挂在那里了 hang住了

autumn_leaf

回复  autumn_leaf


   写了个awk的，你试试行不？
yinyuemi 发表于 2011-05-25 14:26

  多谢多谢，AWK没法用，是windows，我也一窍不通

zhlong8

my $str='ABC(10ASDKJFD(DSF)DLKFA"(11"ADF10);
ABC(sdf


);';
say for $str =~ /ABC(\((? ...
autumn_leaf 发表于 2011-05-25 14:28

    你没发现你的数据括号是不匹配的吗？

如果里面“”内允许出现括号还要加一行
$s =~ /ABC(
        \(
            (?:
                "(?:[^\\"]*+|\\.)*+"|
                [^()]*|
                (?1)
            )*
        \)
        )/gx

autumn_leaf

你没发现你的数据括号是不匹配的吗？
zhlong8 发表于 2011-05-25 14:37

  恩，大哥真细心，只要括号匹配好像就不会hang住了
能否指导一下，我没看懂这个reg
谢谢

zhlong8

恩，大哥真细心，只要括号匹配好像就不会hang住了
能否指导一下，我没看懂这个reg
谢谢
autumn_leaf 发表于 2011-05-25 14:43

    $s =~ /ABC(    #捕获 $1
        \(
            (?:
                "(?:[^\\"]*+|\\.)*+"| # 字符串里面可以存在() 排除掉
                [^()]*|                      # 其它字符
                (?1)                          # 像 $1 一样的递归结构
            )*
        \)
        )/gx

yinyuemi

回复 37# zhlong8


    学习

autumn_leaf

你没发现你的数据括号是不匹配的吗？

如果里面“”内允许出现括号还要加一行
$s =~ /ABC(
  ...
zhlong8 发表于 2011-05-25 14:37

那就啥也找不到了
my $str='ABC(10ASDKJFD(DSF)DLKFA"(11"ADF10);
ABC(sdf


);';

say for $str =~ /ABC(\((?:"(?:[^\\"]*+|\\.)*+"|[^()]*|(?1))*\))/gx;

zhlong8

那就啥也找不到了
my $str='ABC(10ASDKJFD(DSF)DLKFA"(11"ADF10);
ABC(sdf


);';

...
autumn_leaf 发表于 2011-05-25 14:51

    我的可以正确捕获。至于为什么不对称就死循环这个我也不清楚。
(10ASDKJFD(DSF)DLKFA"(11"ADF10)
(sdf


)

autumn_leaf

我的可以正确捕获。至于为什么不对称就死循环这个我也不清楚。
(10ASDKJFD(DSF)DLKFA"(11"ADF10 ...
zhlong8 发表于 2011-05-25 14:53

很感谢，不过问题还是解决不了，郁闷了