这个替换怎么做？

ac_3

$a="   ...123234.....23489....2342...  ";

$a=~s/\./X/g,这样会把所有的点都替换了，只把数字中间的"."替换成"X"，最简单怎么写啊？

ziyunfei

$a=~s/(?<=\d)\.+(?=\d)/("X"x length($&))/eg

ac_3

看上去有点复杂啊

kk861123

学习学习

bikong0411

不错，学习了

yinyuemi

$a="   ...123234.....23489....2342...  ";
while($a =~ s/(\dX*)\.(\.*\d)/\1X\2/){;}
print $a

zarkovsky

回复 1# ac_3

$a = "....11121...1312...12212...";
$a =~ s/(\d)(\.+)(\d)/$1X$3/g;


   

rubyish

不错，学习了

ac_3

再问这个替换又怎么写呢：
$a="....23423598340958039418242533X234902BKJS43353454....."
将夹在前面“.”后5位之后到后面"."前5位之间的内容全部替为"X"怎么写？

kk861123

回复 9# ac_3
学习二楼:

1. $a =~ s/(?<=[.]\d{5}).+(?=\d{5}[.])/'X' x (length($&))/e;

复制代码