perl 在我的字符串中搜索数字答案

【问题标题】：perl search digits in my stringperl 在我的字符串中搜索数字
【发布时间】：2012-03-14 00:42:12
【问题描述】：

我的字符串中的搜索数字有问题。我有两个文件。

stver.php

define('upd_ver', 256);

tr_ver.php

define('code_ver', 110);

问题是：如何查找数字（256 和 110）进行增量和保存文件。例如，字符串定义('upd_ver', 256);保存后变成define('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);

【问题讨论】：

标签： string perl search

【解决方案1】：

一种方法：

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

/e 标志使替换字符串被评估，并且其 result 被替换，而不是替换字符串本身被简单地作为文字字符串插入。

【讨论】：