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

xiaomm250

substr函数 发表于 2014-04-11 20:15
大致的思路

感觉运行结果是正确的

把这句
my %F1 = map { $_, 1 } <File1>;
换成这句
my %F1 = map { $_ } <File1>;
为什么结果不对呢?

stanley_tam

假设文件不大，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__

复制代码