比较两个文件，如何输出不匹配的内容？

tideyzhang

有两个文件a，b；文件a是文件b的子集，如何比较两个文件输出文件b中a没有的部分？
例如：
文件a：

1. a
   
2. b
   
3. c
   
4. d
   
5. e
   
6. f
   
7. g

复制代码

文件b：

1. a
   
2. b
   
3. sk
   
4. c
   
5. sl
   
6. d
   
7. e
   
8. gr
   
9. f
   
10. g

复制代码

进一步，如果a与b仅有一部分相同，怎样分别输出a与b不相匹配的那部分？

rubyish

:

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. 
   
4. my @a = qw/b c d e f g/;
   
5. my @b = qw/b c d k e f w g/;
   
6. 
   
7. my %a  = map { $_, 1 } @a;
   
8. my @ba = grep !$a{$_}, @b;
   
9. 
   
10. say join '|', @ba;    # k|w
    
11. 
    
12. my @A = qw/a b c d e f g/;
    
13. my @B = qw/b h c i k j a/;
    
14. 
    
15. my %AB ; map { $AB{$_}++ } @A, @B;
    
16. my @DAB = grep $AB{$_} == 1, keys %AB;
    
17. my @IAB = grep $AB{$_} == 2, keys %AB;
    
18. 
    
19. say join '|', @DAB;    # f|j|k|d|g|i|h|e
    
20. say join '|', @IAB;    # b|a|c

复制代码

bikong0411

楼上写的一手好grep，好map啊，哈哈

qq413187589

rubyish写的什么呀？
估计lz要Beyond Compare的功能，别个只是举了个栗子。

seufy88

shell>grep -v -wvf file_a file_b

tideyzhang

qq413187589 发表于 2013-08-01 09:56
rubyish写的什么呀？
估计lz要Beyond Compare的功能，别个只是举了个栗子。

确实只是举个例子，就是从文件中读取，然后比较不同，得到不同……