Perl版按规则替换文本

sxw

之前有601997526 写出了批版的，地址在http://www.bathome.net/thread-14419-1-1.html
现给出Perl版（欢迎讨论指正）：

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my %hash;
   
6. open (my $in,"<","a.txt") or die;
   
7. while (<$in>) {
   
8.         next if /^$/;
   
9.         chomp;
   
10.         my ($ori,$rep)=split /\|/;
    
11.         $hash{$ori}=$rep;
    
12. }
    
13. close $in;
    
14. 
    
15. open my $fh,"<","text.txt" or die;
    
16. while (<$fh>) {
    
17.         foreach my $key (keys %hash) {
    
18.                 my $regex=qr|\Q$key\E|;
    
19.                s/$regex/$hash{$key}/g;
    
20.         }
    
21.         print;
    
22. }
    
23. close $fh;
    

复制代码

根据a.txt中的替换规则,目标文件为text.txt。
将text.txt中的每一行按如下规则替换：

如果出现|左边的字符全部替换为|右边的字符
a.txt类似下面的内容：（用|分隔，且其左右两边不再有其它的|）

1. 
   
2. aaa|bbb_
   
3. zzz|_aaa
   
4. 123|321
   
5. ___|---
   
6. +++|$$$
   
7. (((|)))
   
8. <<<|>>>
   
9. """|'''
   
10. ```|""""
    
11. ...|^^^
    

复制代码

Batcher

在顶楼给个链接吧，以便他人对照BAT版的代码。

sxw

回复 2# Batcher


    好的。。。