使用Perl修改多个类似文件的内容,更新大量文件-创新互联

copy

创新互联专注为客户提供全方位的互联网综合服务,包含不限于网站设计、成都网站建设、城固网络推广、小程序设计、城固网络营销、城固企业策划、城固品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们大的嘉奖;创新互联为所有大学生创业者提供城固建站搭建服务,24小时服务热线:13518219792,官方网址:www.cdcxhl.com
  1. #!/usr/bin/perl -w

  2. #########################################################################

  3. # File Name: change.pl

  4. # Author: xuehuikuaile

  5. #########################################################################

  6. #$^I变量非空,这个字符就会成为备份文件的扩展名

  7. #修改原文件的同时 会生成备份文件

  8. $^I = ".bak";

  9. while(<>){

  10.     s/testxxx/testaaa/gm;

  11.     print;

  12. }



运行方法: ./change.pl  *.dat

另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。


分享文章:使用Perl修改多个类似文件的内容,更新大量文件-创新互联
文章出自:http://azwzsj.com/article/deisse.html