11

我有一个文本,如何将其中的所有数字替换为仅高一个的数字?

我尝试过以下方法:

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

1 回答 1

16

使用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

于 2012-10-26T10:55:26.010 回答