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