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

Question

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

我尝试使用

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

但它输出为字符串，即“转到第34 + 1页并读取第3 + 1行”

Answer 1

这个怎么样：

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

要点是e正则表达式选项，它将替换部分视为表达式。