Perl正则表达式用自己替换数字，只有一个更高

Question

我有一个文字，我怎么能用它们自己替换所有数字呢？

我尝试过以下内容：

$buffer_content=~s/(\d)/($1++)/g;

Answer 1

使用s///e - 评估修饰符，您可以在第二部分放置任意perl代码。

$x = "hello 3";
$x =~ s/([0-9]+)/$1 + 1/eg;
print $x;

// hello 4

参考：http://perldoc.perl.org/perlretut.html#Search-and-replace