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