用perl脚本在以字符串WRITE_APB开头的行的行尾插入新字符串fwrite

wide_road

比如我的文本文件 test.txt

WRITE_APBXXX1;
...

WRITE_APBXXXN;


如何在行尾插入fwrite：
WRITE_APBXXX1;fwrite
...
WRITE_APBXXX2;fwrite


如何用perl 实现这个操作呢

zsftm

1. 
   
2. my $out = "";
   
3. open(INFILE, "< ./test.txt") or die "$!\n";
   
4. while(<INFILE>){
   
5.     chomp;
   
6.     if(/^WRITE_APB/){
   
7.         $our .= "$_" . "fwrite\n";
   
8.     }
   
9.     else{
   
10.         $our .= "$_\n";
    
11.     }
    
12. }
    
13. close(INFILE);
    
14. print("$our");
    

复制代码

或者直接用sed：

1. sed -i '/^WRITE_APB/s/$/fwrite/' test.txt
   

复制代码

不过上面这个是直接修改源文件的，比较危险。如果对命令效果不放心的话，建议先将结果写到一个新的文件：

1. sed '/^WRITE_APB/s/$/fwrite/' test.txt > another_file
   

复制代码

murphy522

Perl 语法过于晦涩， 还是Tcl 来得直接方便好用。

diyangguang

perl和tcl哪个好用呢？3楼的同志

wide_road

回复 2# zsftm


   谢谢