免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 2393 | 回复: 2

如何用perl实现处理批量文件,对匹配关键字进行修改并输出 [复制链接]

论坛徽章:
0
发表于 2017-07-24 16:54 |显示全部楼层
求教大神,有如下一堆文件:
a.txt (包含test)
b.txt (不包含test)
c.txt(包含test)
d.txt(包含test)

现在想对这些文件里面有关键字test的地方进行替换,添加部分内容。而不包含test的文件原封不动的输出到另外一个新建dir下面,名字依旧为原名字。
cat a.txt :

....
test
....

替换后为:
cat a_new.txt :
....
add one line
test
add two line
end
.....

对于包含test的其他文件也是一样的处理, 最后输出到新的OUT的dir下面:

a_new.txt
b.txt
c_new.txt
d_new.txt

用perl如何实现,谢谢指教

论坛徽章:
33
荣誉会员
日期:2011-11-23 16:44:17天秤座
日期:2014-08-26 16:18:20天秤座
日期:2014-08-29 10:12:18丑牛
日期:2014-08-29 16:06:45丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17寅虎
日期:2014-09-11 14:24:21天蝎座
日期:2014-09-17 08:33:55IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:0015-16赛季CBA联赛之天津
日期:2016-05-06 12:46:59
发表于 2017-08-02 21:55 |显示全部楼层
回复 1# clfsy

我写的只是个思路, 不是正式的代码. 很久没写过了, 已经不会写 perl的代码了.
  1. @files = qw(xx xx1 xx2 xx3)
  2. foreach $file in files:
  3.     open "dir1/$file" as f
  4.     open "dir2/$file" as f1
  5.     for line in f:
  6.          if line == "test":
  7.              do_your_work()
  8.          else:
  9.              f1.write(line)
  10.    
  11.      close(f1)
  12.      close(f)
复制代码

论坛徽章:
0
发表于 2018-10-24 10:35 |显示全部楼层
回复 2# q1208c

多谢2楼回复,好久的一个帖子后来我用awk处理了。perl还是荒废了。


您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

【CUer福利】柯尼卡美能达2018数字化整合解决方案巡展
智领共创链动价值-2018数字化整合解决方案巡展

2018年11月,柯尼卡美能达携手主流IT网络媒体IT168及旗下ITPUB、ChinaUnix等论坛,特此邀请企业IT管理、运维人员/办公设备采购负责人员共同参与,分享柯尼卡美能达“智领共创链动价值”-2018数字化整合解决方案巡展!现场体验MOBOTIX智能视频监控解决方案!

活动入口>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP