求正則升級(jí)版

3P主義

給括號(hào)中間的@#前面都加上空格，括號(hào)出現(xiàn)嵌套，
能用一條正則來(lái)替換么？
謝謝

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

這個(gè)參照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;
    

復(fù)制代碼

拋磚引玉

jason680

回復(fù) 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

回復(fù) 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

樓主,請(qǐng)問(wèn)你用什么方法判定哪條正則誰(shuí)快誰(shuí)慢呢?

ludio333

回復(fù) 5# jason680


    學(xué)習(xí)了

翻了一下
For example:

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

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

ttcn_cu

印象中括號(hào)的精確匹配是這樣的

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;

復(fù)制代碼

hmilymb

好復(fù)雜。。。。。。