perl在我的字符串中搜索數字

Question

我在我的字符串中搜索數字有問題。 我有兩個文件。

stver.php

define('upd_ver', 256); 

tr_ver.php

define('code_ver', 110); 

的問題是：如何找到數字（256和110）使增量和保存文件。 Exmpl，string define（'upd_ver'，256）;保存後變成定義（'upd_ver'，257）;

#!/usr/bin/perl 
$sv="stver.php"; 
$tv="tr_ver.php"; 
open (SVIN, $sv) || die "Can't open $sv"; 
while (<SVIN>) 
{ chomp; print;} 
print "\n"; 
close (SVIN); 

Answer 1

一種方法：

s/(define\(.*?,\s*)(\d+)/"$1" . ($2 + 1)/eg; 

的/e標誌導致替換字符串進行評價，其結果取代在，而不是替換字符串本身被簡單地屁股在作爲文字字符串。