perl中类似sed的功能如何表述?

happy352

现在对一文件内容进行编辑.比如:
想将文件NJ05310B.TXT内带有G04%NEXT的字段的行替换成G04%NEXT==
sed命令表示为:

sed -e " /G04%NEXT/c\\
G04%NEXT== " NJ05310B.TXT >; test

用perl如何表示?
先谢谢了!

tiw

use sed2perl

笨狗

1. 
   
2. open(FH, "test.txt");
   
3. @_ = <FH>;;
   
4. close(FH);
   
5. 
   
6. open(FH, ">; test.txt");
   
7. foreach (@_) {
   
8.   $_=~ s/^G04%NEXT$/G04%NEXT==/g;
   
9.   print FH $_;
   
10. }
    
11. close(FH);
    

复制代码

寂寞烈火

try perl1line:

1. 
   
2. perl -pi -e 's/(G04%NEXT)/\1==/g' filename

复制代码

happy352

笨狗，文件test.txt能生成，但并没有替换啊！（完全复制！）
寂寞烈火，试着执行你的命令，失败，报：can't do inplace edit without backup.

happy352

笨狗，命令： $_=~ s/^G04%NEXT$/G04%NEXT==/g;
并非做行替换，比如：
原行为 G04%NEXT=="NU05310B.GBL";%*
替换为 G04%NEXT=="-";%*

具体如何写那一行命令，先谢谢了！

gamester

估计是类似于
perl -pi -e 's/源字符串/目的字符串/g' filename
这样的

寂寞烈火

原帖由 "happy352" 发表：
笨狗，文件test.txt能生成，但并没有替换啊！（完全复制！）
寂寞烈火，试着执行你的命令，失败，报：can't do inplace edit without backup.

1. 
   
2. /home/lee#cat filename
   
3. aaaaaaaaaaa
   
4. bbbbbbb
   
5. ffffffff
   
6. G04%NEXT
   
7. /home/lee#perl -pi -e 's/(G04%NEXT)/\1==/g' filename
   
8. /home/lee#cat filename
   
9. aaaaaaaaaaa
   
10. bbbbbbb
    
11. ffffffff
    
12. G04%NEXT==
    
13. /home/lee#perl -e 'print $],"\n"'
    
14. 5.008
    

复制代码