批量修改文件

最新推荐文章于 2023-06-16 18:35:43 发布

caz28

最新推荐文章于 2023-06-16 18:35:43 发布

阅读量1.1k

点赞数

分类专栏：脚本语言文章标签： perl 批处理修改文件

本文链接：https://blog.csdn.net/caz28/article/details/12090233

版权

脚本语言专栏收录该内容

30 篇文章 0 订阅

订阅专栏

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

写个工具处理这些文件：

 
      use  
      strict; 
     
      if 
      ( 
      @ARGV 
      [0] !~ m/xxx_cfg.c/) 
     
      { 
     
      exit 
      (0); 
     
      } 
     
      my  
      $file  
      =  
      "< " 
      . 
      @ARGV 
      [0]; 
     
      open 
      (CFG_FILE, 
      $file 
      )|| 
      die 
      ( 
      "Can't open read file" 
      ); 
     
      my  
      $line  
      =  
      "" 
      ; 
     
      my  
      @lines  
      = (); 
     
      @lines  
      = <CFG_FILE>; 
     
      close 
      (CFG_FILE); 
     
      $file  
      =  
      "> " 
      . 
      @ARGV 
      [0]; 
     
      open 
      (CFG_FILE, 
      $file 
      )|| 
      die 
      ( 
      "Can't open write file" 
      ); 
     
      foreach  
      $line  
      ( 
      @lines 
      ) 
     
      { 
     
      if  
      ( 
      $line  
      =~ m/cfg_KeyWord/)    
      #查找关键字 
     
      { 
     
      $line  
      =~ s/AAA/BBB/;    
      #在该行替换内容 
     
      } 
     
      print  
      CFG_FILE ( 
      $line 
      ); 
     
      } 
     
      close 
      (CFG_FILE);