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 вызывает оценку замещающей строки, а ее результат подставляется, а не сама замещающая строка простоплюхнулся как буквальная строка.