零宽断言替换问题

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. $

复制代码

只写出不替换尾部的正则，头部的不会

黑色阳光_cu

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

复制代码

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

复制代码

beginner-bj

第二种写法能达到目的，谢谢

黑色阳光_cu

第二种写法能达到目的，谢谢
beginner-bj 发表于 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 发表于 2010-11-25 10:55

   
这个有bug~~，如果中间的0是几个连续呢？

alabos

我在想，用环视能不能做到呢？

jason680

这个有bug~~，如果中间的0是几个连续呢？
黑色阳光_cu 发表于 2010-11-25 10:57

果真如此.....何必把问题复杂化
perl -e '$str=q/00023002003400/;($s,$m,$e)=$str=~m/^(0*)(.+?)(0*)$/;$m=~s/0/A/g;print "$s$m$e\n";'

黑色阳光_cu

果真如此.....何必把问题复杂化
perl -e '$str=q/00023002003400/;($s,$m,$e)=$str=~m/^(0*)(.+?)(0* ...
jason680 发表于 2010-11-25 11:40

就是想一句正则搞定~