批量修改文件

发布时间：2020-12-16 00:08:15 所属栏目：大数据来源：网络整理

导读：我们一个平台有好多项目配置，如果发现一个平台性bug，所有配置都要修改。一个配置一个目录，一个一个改非常麻烦，我们有个平台有几十个项目配置，手工改工作量太大了。写个工具处理这些文件： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

我们一个平台有好多项目配置，如果发现一个平台性bug，所有配置都要修改。
一个配置一个目录，一个一个改非常麻烦，我们有个平台有几十个项目配置，手工改工作量太大了。

写个工具处理这些文件：

 
      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" 
      ); 
     
      foreach? 
      @lines 
      ) 
     
      { 
     
      if? 
      =~?m/cfg_KeyWord/)??? 
      #查找关键字 
     
      ???? 
      { 
     
      ???????? 
      =~?s/AAA/BBB/;??? 
      #在该行替换内容 
     
      } 
     
      ???? 
      print? 
      CFG_FILE?( 
      $line 
      ); 
     
      } 
     
      (CFG_FILE);

再在配置目录里调用批处理：
FOR /R %A IN (*.c) DO perl e:toolsstr_file.pl %A
就会把所有需要修改的都改了。

当然提交时要检查一下，代码还是要人把关的。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!