找到一个数字并递增它

Question

我想创建一个小的perl脚本,它会在c ++头文件中找到某个声明来修改它.到目前为止,我已经能够创建"查找"部分:

my $buildFile = "..\\Support\\BuildVersion.h";

my @result;
open( File, $buildFile ) or die "Can't open $buildFile.\n";
@result = <File>;
close( File );

print "Updating build version...\n";

open( NEWFOUT, ">", "$buildFile" ) or die "Can't open $buildFile.\n";
foreach( @result )
{
    print $_;
    if( $_ =~ m/#define BUILD_COUNT [0-9]+/ig )
    {
        $_ =~ s/$_/#define BUILD_COUNT 77/;

    }
}
print NEWFOUT @result;
close( NEWFOUT );

所以在我的c ++文件中,我将这个定义命名为BUILD_COUNT.我想在每次构建解决方案之前调用此脚本,以便它将增加1后面的值BUILD_COUNT.我怎么能这样做

Answer 1

单线应该足够了.

perl -i -pe 's/#define BUILD_COUNT \K(\d+)/$1 + 1/e' yourfile

使用没有备份的-i开关是危险的,但我觉得这就是你想要的.为了更安全,但不完整,请使用-i.bak.

-p开关将打开并读取参数文件,替换运算符上的/ e选项将导致替换表达式在插入之前进行评估.该\K逃逸会导致无论是要保持前.