零寬斷言替換問題

beginner-bj

echo 023020340 |perl -pe 's#(?<=\d)0(?=\d)#A#g'
可將023020340替換成023A2A340，即：頭尾的一個0不變，中間的0都替換成A。

那如何將000230203400替換成00023A2A3400呢？即：頭尾的任意個0不變，中間的0都替換成A。

beginner-bj

1. $ echo 000230203400 |perl -pe 's#0(?!0*$)#A#g'
   
2. AAA23A2A3400
   
3. $

復(fù)制代碼

只寫出不替換尾部的正則，頭部的不會

黑色陽光_cu

1. my $str = "000230203400";
   
2. $str =~ s/(?:^0+)?\K(0)?(?!0*$)/defined $1 && "A"/eg;
   
3. warn $str;

復(fù)制代碼

1. my $str = "000230203400";
   
2. $str =~ s/([^0].+?[^0])(?=0*$)/(local $_ = $1) =~ s\/0\/A\/g; $_/e;
   
3. warn $str;

復(fù)制代碼

beginner-bj

第二種寫法能達(dá)到目的，謝謝

黑色陽光_cu

第二種寫法能達(dá)到目的，謝謝
beginner-bj 發(fā)表于 2010-11-25 06:22

   
第一種寫法5.10起可用

liyangole

我也來一個 試試：
                 perl -e '$str=q/000230203400/;$str=~s/(?<=[^0])0(?=[^0])/A/g;print $str;'

黑色陽光_cu

我也來一個 試試：
                 perl -e '$str=q/000230203400/;$str=~s/(?
liyangole 發(fā)表于 2010-11-25 10:55

   
這個有bug~~，如果中間的0是幾個連續(xù)呢？

alabos

我在想，用環(huán)視能不能做到呢？

jason680

這個有bug~~，如果中間的0是幾個連續(xù)呢？
黑色陽光_cu 發(fā)表于 2010-11-25 10:57

果真如此.....何必把問題復(fù)雜化
perl -e '$str=q/00023002003400/;($s,$m,$e)=$str=~m/^(0*)(.+?)(0*)$/;$m=~s/0/A/g;print "$s$m$e\n";'

黑色陽光_cu

果真如此.....何必把問題復(fù)雜化
perl -e '$str=q/00023002003400/;($s,$m,$e)=$str=~m/^(0*)(.+?)(0* ...
jason680 發(fā)表于 2010-11-25 11:40

就是想一句正則搞定~