求正则

ace_fei

我想给括号中间的@#前面都加上空格
能用一条正则来替换么？
谢谢

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

cdtits

1. my $text = '12@3(13@3@4#5#67)12#3';
   
2. while ($text =~ s/(.*\(.*?)(?<! )([\@\#])(?=.*\))/$1 $2/g) {};
   
3. print $text;

复制代码

ace_fei

回复 2# cdtits
谢谢您的回复，你的答案很好。
其实我是在文本替换工具里写正则表达式，所以也不能用到while。


   

3P主义

my $str = '12@3(13@3@4#5#67)12#3';
$str =~ s/([\@#])(?=[^\)]*?\))/ $1/g;
die $str;

取巧的办法

ziyunfei

regexbuddy 选.net正则
用

1. (?<=\(.*)(@|#)(?=.*\))

复制代码

替换为

1. 空格$&

复制代码

一般编辑器都不是用.net写的

yinyuemi

回复 1# ace_fei

1. perl -le '$str="12\@3(13\@3\@4#5#67)12#3"; $str=~s/(?=((@|#)(?!([^()]+([(]|$)))))/ /g;print $str'
   
2. 12@3(13 @3 @4 #5 #67)12#3
   

复制代码

cdtits

楼上的很妙：

1. my $text = '12@3(13@3@4#5#67)12#3';
   
2. $text =~ s/(?=[@#])(?!([^()]+\())/ /g;
   
3. print $text, "\n";

复制代码

还有一种类似方法：

1. $text =~ s/(?=[@#])(?=([^()]+\)))/ /g;

复制代码

3P主义

1. my $str = '12@3(13@3@4#5#67)12#3';
   
2. $str =~ s/([\@#])(?=[^\(\)]*?\))/ $1/g;
   
3. die $str;

复制代码

写漏了

xmchenb

#!D:\strawberry\perl\bin\perl5.12.3 -w

use strict;
use warnings;

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

xmchenb

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