正则可以实现，把一串数字除头尾的0替换成另一个字符么？

ooooldman

都很犀利啊

magnet2008

使用perl写的
echo -e "020233\n023020"|perl -pe 's#(?<=\d)0(?=\d)#A#'
前后查找有没有数字有的替换
02A233
023A20

beginner-bj

看来这样的问题，perl是强项。
's#(?<=\d)0(?=\d)#A#' 谁能给解释下？或者给了文档链接？

bbgg1983

回复 23# beginner-bj


    不懂perl，不过貌似这个叫做零宽断言。
   参考：
http://hooopo.javaeye.com/blog/407062
http://bbs.chinaunix.net/viewthread.php?tid=1473966

beginner-bj

回复 24# bbgg1983


    谢谢！我去研究下零宽断言。

jwdxd

学习学习

cuiahong

sed 's/0/a/g;s/^a/0/;s/a$/0/'

nuclearxin

http://bbs.chinaunix.net/thread-1822424-1-1.html
传送们。。

黑色阳光_cu

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

复制代码

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

复制代码

论坛ID

TIm大哥好，但是只能替换首末两个的，不符lz后面的例子啊