如何用perl实现处理批量文件，对匹配关键字进行修改并输出

clfsy

求教大神，有如下一堆文件：
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如何实现，谢谢指教

q1208c

回复 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)
    

复制代码

clfsy

回复 2# q1208c

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