perl 正則 第N個出現(xiàn)的位置 怎么做？

45177659

例如：

1+2+3+4

1.想把第3個數(shù)字乘以2， 怎么做？

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

bikong0411

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

45177659

回復(fù) 2# bikong0411

謝謝你的回復(fù)
你這是用+號去分割的，然后重組；但我想要的是第3個數(shù)字，如果是1+2*3/4 要怎么破？（不考慮用[^\d]作分隔符/）

jason680

回復(fù) 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

回復(fù) 4# jason680

三種都很好，非常感謝了 ！