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

copy

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

1. #!/usr/bin/perl -w

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

3. # File Name: change.pl

4. # Author: xuehuikuaile

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

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

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

9. $^I = ".bak";

10. while(<>){

11.     s/testxxx/testaaa/gm;

12.     print;

13. }

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

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

当前名称：使用Perl修改多个类似文件的内容，更新大量文件-创新互联
文章出自：http://shouzuofang.com/article/deisse.html