perl 字符替换

gangwmsn

我想把字符串aaaa...abbbbb的最后一个a替换成c,a个数有限但是未知，请问大牛们怎么实现啊

jason680

回复 1# gangwmsn

1. s/a*\Ka(?!=a)/c/g
2. s/a+\Ka(?!=a)/c/g

   

cdtits

回复 1# gangwmsn

1. s/a(?=[^a]*$)/c/;

复制代码

gangwmsn

回复 2# jason680

谢谢，如果是addaadd..aabbbb,我已知a的个数是n，想把第i(0<i<n)个a换成c呢，这能实现么，谢谢


   

gangwmsn

回复 3# cdtits
谢谢，如果是addaadd..aabbbb,我已知a的个数是n，想把第i(0<i<n)个a换成c呢，这能实现么，谢谢


   

cdtits

回复 5# gangwmsn

1. $s = 'addaadd..aabbbb';
   
2. @a = $s =~ /(a)/g;
   
3. $n = @a;
   
4. for $i (1..$n) {
   
5.     $x = $n - $i;
   
6.     $y = $s;
   
7.     $y =~ s/a(?=(?:[^a]*?a[^a]*?){$x}[^a]*$)/c/;
   
8.     print "$i\t$y\n";
   
9. }

复制代码

gangwmsn

谢谢，我先看看回复 6# cdtits


   

yizhengming

偷偷学习........

yinyuemi

1. perl -e '$str = "addaadd..aabbbb";
   
2. $s=2;$e=3;
   
3. $str =~ /(.)(?{if( $1 eq "a" && ++$cnt >=$s && $cnt <=$e){print "c"}else{print $&}})(*FAIL)/'

复制代码

yizhengming

谢谢，如果是addaadd..aabbbb,我已知a的个数是n，想把第i(0<i<n)个a换成c呢，这能实现么，谢谢


while($line =~ /a/g) {
    ++$n;
   $line = "$`c$'" if $n == i;
}