如何把2.txt里面有的行,但是1.txt里面沒有的行,寫到3.txt里面?

xiaomm250

substr函數(shù) 發(fā)表于 2014-04-11 20:15
大致的思路

感覺運行結(jié)果是正確的

把這句
my %F1 = map { $_, 1 } <File1>;
換成這句
my %F1 = map { $_ } <File1>;
為什么結(jié)果不對呢?

stanley_tam

假設(shè)文件不大，2.txt文件木有重復
下面也許能行{:3_188:}

1. #!perl
   
2. use Modern::Perl;
   
3. use Set::Scalar;
   
4. use File::Slurp qw{ read_file write_file };
   
5. 
   
6. my @files  = ('1.txt', '2.txt', '3.txt');
   
7. 
   
8. # save file lines to set
   
9. my $set_for_file2 = Set::Scalar->new( read_file($files[2]) );
   
10. my $set_for_file1 = Set::Scalar->new( read_file($files[1]) );
    
11. 
    
12. my $set_for_file3 = $set_for_file2 - $set_for_file1;
    
13. 
    
14. write_file($files[3], sort $set_for_file3->elements);
    
15. 
    
16. __END__

復制代碼