perl 正则 第N个出现的位置 怎么做？

45177659

例如：

1+2+3+4

1.想把第3个数字乘以2， 怎么做？

找了很多东西 也没有找到什么好的方法，有什么好的方法教教我！3Q

bikong0411

echo 1+2+3+4 | perl -lnaF'\+' -e '$F[2] *= 2;print join "+",@F;'

45177659

回复 2# bikong0411

谢谢你的回复
你这是用+号去分割的，然后重组；但我想要的是第3个数字，如果是1+2*3/4 要怎么破？（不考虑用[^\d]作分隔符/）

jason680

回复 3# 45177659

Which one do you like ...

$ cat FILE
1+2+3+4
1+2/3*4

1. Regular Expression
$ perl -lape 's/^((\d+\D+){2})(\d+)/$1.$3*2/e' FILE
1+2+6+4
1+2/6*4

2. split and join
$ perl -lape '@a=split/(\d+)/;$a[5]*=2;$_=join("",@a)' FILE
1+2+6+4
1+2/6*4

3. RE with Embedded Code Execution  (?{ CODE }) or (??{ CODE })

$ perl -lape '$c=0;s/(\d+)(?{$n=(++$c==3)?$1*2:$1})/$n/ge' FILE
1+2+6+4
1+2/6*4

Note: more detail information by 'perldoc perlre' command

45177659

回复 4# jason680

三种都很好，非常感谢了 ！