零寬斷言替換問(wèn)題

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:}

這個(gè)是一個(gè)新學(xué)到的方法。 嘿嘿，

看來(lái)書，還是有多翻才有用！

剛剛學(xué)會(huì)斷言 (?<=)  (?=) 這種方法， 顯擺一下。

wfnh

就是想一句正則搞定~
黑色陽(yáng)光_cu 發(fā)表于 2010-11-25 11:46

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

alabos

樓上的，結(jié)果不對(duì)。

不過(guò)思路又開闊了。

x9x9

樓上的，結(jié)果不對(duì)。

不過(guò)思路又開闊了。
alabos 發(fā)表于 2010-11-25 13:53

    其實(shí)你12樓的寫法也是依靠對(duì)^和$的判斷實(shí)現(xiàn)的~
這樣可能就可以了：

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

黑色陽(yáng)光_cu

其實(shí)你12樓的寫法也是依靠對(duì)^和$的判斷實(shí)現(xiàn)的~
這樣可能就可以了：

my $str='000230203400'; ...
x9x9 發(fā)表于 2010-11-25 15:22

   
你這個(gè)正則不對(duì)

beginner-bj

其實(shí)你12樓的寫法也是依靠對(duì)^和$的判斷實(shí)現(xiàn)的~
這樣可能就可以了：

my $str='000230203400'; ...
x9x9 發(fā)表于 2010-11-25 15:22

如果0002302003400就不對(duì)了。

x9x9

你這個(gè)正則不對(duì)
黑色陽(yáng)光_cu 發(fā)表于 2010-11-25 15:26

    是有問(wèn)題，好像向前斷言不允許用正則啊，向后可以~

wfnh

回復(fù) 14# alabos

哦··看錯(cuò)需求了·····