处理两个大文本

wxlfh

按行处理，很省内存。只是两个文件都要读取两遍，算时间换内存吧

1. use strict;
   
2. 
   
3. my %del;
   
4. 
   
5. open my $fh, "<", 'A.txt';
   
6. while ( <$fh> ) {
   
7.     chomp;
   
8.     $del{$.} = 1 if /c/i;
   
9. }
   
10. 
    
11. open my $fh, "<", 'B.txt';
    
12. while ( <$fh> ) {
    
13.     chomp;
    
14.     $del{$.} = 1 if /c/i;
    
15. }
    
16. 
    
17. open my $fh, "<", 'A.txt';
    
18. open my $out,">", 'A_未删除.txt';
    
19. while ( <$fh> ) {
    
20.     print $out $_ unless exists $del{$.};
    
21. }
    
22. 
    
23. open my $fh, "<", 'B.txt';
    
24. open my $out,">", 'B_未删除.txt';
    
25. while ( <$fh> ) {
    
26.     print $out $_ unless exists $del{$.};
    
27. }

复制代码

wxlfh

hash里存的是行号，而且存的只是要删除行的行号，内存是够的
回复 10# 清泉一边