求正则升级版

3P主义

给括号中间的@#前面都加上空格，括号出现嵌套，
能用一条正则来替换么？
谢谢

12@3(13@3(@4#5)#67)12#3

xmchenb

my $a='12@3(13@3(@4#5)#67)12#3 ';
if($a=~/\(.+\)/)
{
        my $_=$&;
        s/\@/ \@/gx;
        s/\#/ \#/gx;
        $a=~s/\(.+\)/$_/;
        print $a,"\n";
}

ludio333

这个参照cdtits的就行了啊
perl -e '$text=q{12@3(13@3(@4#5)#67)12#3};while ($text =~ s/(.*\(.*?)(?<! )([\@\#])(?=.*\))/$1 $2/g) {};print $text';
12@3(13 @3( @4 #5) #67)12#3

3P主义

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $str = '12@3(13@3(@4#5)#67)12#3';
   
7. $str =~ s/
   
8.     ([\@#])
   
9.     (?=
   
10.         (
    
11.             [^\(\)]+
    
12.             |
    
13.             \((?2)\)
    
14.         )*
    
15.         \)
    
16.     )
    
17. / $1/xg;
    
18. die $str;
    

复制代码

抛砖引玉

jason680

回复 3# ludio333

have some bug ...
$ perl -e '$text=q{12@3(13@3(@4#5)#67)12#3(123@456)};while ($text =~ s/(.*\(.*?)(?<! )([\@\#])(?=.*\))/$1 $2/g) {};print $text';
12@3(13 @3( @4 #5) #67)12 #3(123 @456)
   

jason680

回复 1# 3P主义

try this one

$ echo '12@3(13@3(@4#5)#67)12#3(123@456)' | perl -lape '{s/(\((?:([^()])|(?1))*\))/$x=$1;$x=~s{([@#])}{ \1}g;$x/eg}'
12@3(13 @3( @4 #5) #67)12#3(123 @456)   

perlnewbie

楼主,请问你用什么方法判定哪条正则谁快谁慢呢?

ludio333

回复 5# jason680


    学习了

翻了一下
For example:

                     m{ ( \( )?
                        [^()]+
                        (?(1) \) )
                      }x

                 matches a chunk of non-parentheses, possibly included in
                 parentheses themselves.

ttcn_cu

印象中括号的精确匹配是这样的

1. 
   
2. my $rr;
   
3. $rr=qr/\(([^()]|(??{($rr)}))*\)/;
   
4. $test='12@3(13@3(@4#5)#67)12#3';
   
5. $test=~s/($rr)/my $x=$1;$x=~s!([#@])! $1!g;$x/sge;
   
6. print $test;

复制代码

hmilymb

好复杂。。。。。。