递增字符串中所有数字的出现次数perl

Question

我想递增字符串中所有数字的出现次数perl eg。如果我的字符串是$ str =“转到第34页并读第3行” 它应该改为$ str =“转到第35页并阅读第4行”。

我尝试使用

$str =~ s/[\d]/$&+1/g 

但它给输出字符串即 “进入页面数34 + 1和读3 + 1RD线”

Answer 1

如何：

$ echo "foo 1 bar 2" | perl -pE 's/(\d+)/$1+1/ge' 
foo 2 bar 3 

重点是e正则表达式选项，将替换零件作为表达式处理。