零宽断言替换问题

alabos

$_  = '000230203400';

print "$_\n";
s/(?<=[1-9])[0](?=[1-9])/A/g;
print ;


输出：

00023000203400
00023A2A3400

alabos

$_  = '00023000203400';

print "$_\n";

1 while (s/(?<=[^0])0(0*?)(?=[^0])/A$1/g );

print ;


输出：
00023000203400
00023AAA2A3400

{:3_187:}

这个是一个新学到的方法。 嘿嘿，

看来书，还是有多翻才有用！

刚刚学会断言 (?<=)  (?=) 这种方法， 显摆一下。

wfnh

就是想一句正则搞定~
黑色阳光_cu 发表于 2010-11-25 11:46

我也来一句···
$str=~s/(?<!^)0(?!$)/A/g;

alabos

楼上的，结果不对。

不过思路又开阔了。

x9x9

楼上的，结果不对。

不过思路又开阔了。
alabos 发表于 2010-11-25 13:53

    其实你12楼的写法也是依靠对^和$的判断实现的~
这样可能就可以了：

my $str='000230203400';
$str=~s/(?<=[^\^0*])0(?!(0*$))/A/g;
print $str;

黑色阳光_cu

其实你12楼的写法也是依靠对^和$的判断实现的~
这样可能就可以了：

my $str='000230203400'; ...
x9x9 发表于 2010-11-25 15:22

   
你这个正则不对

beginner-bj

其实你12楼的写法也是依靠对^和$的判断实现的~
这样可能就可以了：

my $str='000230203400'; ...
x9x9 发表于 2010-11-25 15:22

如果0002302003400就不对了。

x9x9

你这个正则不对
黑色阳光_cu 发表于 2010-11-25 15:26

    是有问题，好像向前断言不允许用正则啊，向后可以~

wfnh

回复 14# alabos

哦··看错需求了·····