如何在文本的匹配行后加入自己想要的内容？

下后下前拳

遍历这个文本，做正则，想要在匹配的每行后都追加相应的内容，而不覆盖，不知如何实现？

之前看了wfnh同学也发过类似的帖子，但是那个帖子没有解决最后的问题。

下后下前拳

试了下，不太行。。

ynchnluiti

问题有点抽象

wfnh

一个方法是一边读··一边写~~~在源文件操作··我没实现过····

下后下前拳

perl -pe 's/$/abcdefg/ if /Sep 12 04:09/' /var/log/messages
出来了一堆东西。。。
对对，我就想一边读一边写。遍历的过程中就将匹配行改掉。

wfnh

回复 7# 下后下前拳
那就行啦··一边读一边写的话··

1. open IN    ;
   
2. open OUT   ;
   
3. while(<IN>)
   
4. {
   
5.        s{(reg)}{$1 new thing}gi;
   
6.        print OUT;
   
7. }
   
8. close  ;
   
9. close ;
   

复制代码

代码不完整·····自己补完

下后下前拳

哎哟，姐姐，那个语法总是报错。、。。