Perl脚本-为接口定义添加接口id

背景：

有400多个文件存在如下定义：

interface SubmitInsurance(Salary);

添加接口id：

interface SubmitInsurance(Salary) = 0;

其中，多个接口id从0开始递增。

Perl脚本 add_intf_id.pl：

#!/usr/bin/perl

$cnt = 0;
$temp = "perl_data.bak";
`touch $temp`;

open (HANDLE, "$ARGV[0]") or die "cannot open $ARGV[0]";
open (OUT, ">$temp") or die "cannot open $temp for write";

while (<HANDLE>) {
if (m/(\s*)interface\s+(.+);/) {
print OUT "$1interface $2 = $cnt;\n";
$cnt++;
} else {
print OUT $_;
}
}

close HANDLE;
close OUT;

`mv $temp $ARGV[0]`;

思路解析：

打开目标文件

查找到接口定义所在行

添加接口id，并打印到新的文件中

更新源文件

备注

在包含了N个pg文件的文件夹中，shell命令如下：

find . -name \*.pg -exec ./add_intf_id.pl {} \;