我们一个平台有好多项目配置，如果发现一个平台性bug，所有配置都要修改。
一个配置一个目录，一个一个改非常麻烦，我们有个平台有几十个项目配置，手工改工作量太大了。
再在配置目录里调用批处理：
FOR /R %A IN (*.c) DO perl e:\tools\str_file.pl %A
就会把所有需要修改的都改了。
一个配置一个目录，一个一个改非常麻烦，我们有个平台有几十个项目配置，手工改工作量太大了。
写个工具处理这些文件：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use
strict;
if
(
@ARGV
[0] !~ m/xxx_cfg.c/)
{
exit
(0);
}
my
$file
=
"< "
.
[0];
open
(CFG_FILE,
$file
)||
die
(
"Can't open read file"
);
$line
""
;
@lines
= ();
= <CFG_FILE>;
close
(CFG_FILE);
"> "
[0];
"Can't open write file"
);
{
if
=~ m/cfg_KeyWord/)
#查找关键字
{
}
print
CFG_FILE (
$line
);
}
(CFG_FILE);
|
再在配置目录里调用批处理：
FOR /R %A IN (*.c) DO perl e:\tools\str_file.pl %A
就会把所有需要修改的都改了。
当然提交时要检查一下，代码还是要人把关的。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
