文本替换。perl能解决吗？

starboo

因工作需要。要写一个全自动批处理程序。
其目的，是将一个文本中的某几个词替换为另几个词再上传到服务器上。
目前其他几个模块都已解决。就是文本替换还实现不了。
即。
如a.txt内容
aaaa
bbbb
ccccc
dddd
perl能实现类似 tt 111 222 333 444？tt 为程序名
自动将111 222 333 444替换a.txt文本里的aaaa bbbb cccc dddd的字符串

apile

可以呀....
將@ARGV裡面的參數...一個一個用s///g;語法去替換...
再寫回原來文本就好了....

swallor

试试。

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. my ($a,$b,$c,$d) =@ARGV;
   
6. my $myfile = "/tmp/dd.txt";
   
7. my $tmpfile = "/tmp/tmp.txt";
   
8. 
   
9. open(RFILE,$myfile) || die "Can't open file $myfile. ",$!;
   
10. open(TMPFILE,">;>;$tmpfile");
    
11. 
    
12. my $line;
    
13. while($line =<RFILE>;){
    
14.   $line =~ s/aaaaa/$a/ if defined($a);
    
15.   $line =~ s/bbbbb/$b/ if defined($b);
    
16.   $line =~ s/ccccc/$c/ if defined($c);
    
17.   $line =~ s/ddddd/$d/ if defined($d);
    
18. 
    
19.   print TMPFILE $line;
    
20. }
    
21. close(RFILE);
    
22. close(TMPFILE);
    
23. unlink($myfile);
    
24. rename($tmpfile,$myfile);
    

复制代码

gamester

呵呵，是音乐网站一类的吧？定期更改歌曲地址？