求助;把a.txt与b.txt两个文档中完全匹配的行都删除

hkldd

把a.txt与b.txt两个文档中完全匹配的行都删除，也就是把a.txt与b.txt中相同的行都除掉，分别留下不相同的行在原文档。谢谢！

需要处理的样本文件：
a.txt
1a 25 65 13 26 75
1a 55 36 17 1f 07
2b 14 11 5b 6a 3c
5c 26 87 25 47 9c
3d 14 58 1f 39 2a
3d 44 52 3a 2b dd
3d 44 35 5c 6b 9c

b.txt
1a 55 36 17 1f 07
2b 14 11 5b 6a 3c
5c 26 87 25 47 9c
3d 14 58 1f 39 2a
3d 44 52 3a 2b dd
5d 24 32 3a 2b cc

需要得到的样式文件：
a.txt
1a 25 65 13 26 75
3d 44 35 5c 6b 9c

b.txt
5d 24 32 3a 2b cc

附；如果输出结果与源文件名有冲突或难度，可改写成以下的样式文件：
aw.txt
1a 25 65 13 26 75
3d 44 35 5c 6b 9c

dw.txt
5d 24 32 3a 2b cc

sunzhiguolu

回复 1# hkldd
试下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub get_hash_by_file{
   
6.         my ($rsFile, %hFile) = pop;
   
7.         open (my $fhFile, '<', $rsFile) or die "Warnings: $rsFile not exists!\n";
   
8.         while (<$fhFile>){
   
9.                 chomp;
   
10.                 $hFile{$_} = '';
    
11.         }
    
12.         close ($fhFile);
    
13.         \%hFile;
    
14. }
    
15. 
    
16. if (@ARGV < 2){
    
17.         die "Usage : Perl $0 a.txt b.txt!\n";
    
18. }
    
19. 
    
20. my @aFiles;
    
21. foreach (@ARGV){
    
22.         push (@aFiles, get_hash_by_file(\$_));
    
23. }
    
24. 
    
25. foreach my $sIdx (0 .. $#aFiles){
    
26.         my %hNext = %{$aFiles[abs ($sIdx - 1)]};
    
27.         foreach (keys %{$aFiles[$sIdx]}){
    
28.                 print "$_\n" unless exists $hNext{$_};
    
29.         }
    
30.         print "\n";
    
31. }

复制代码

hkldd

sunzhiguolu 你好！
   测试运行错误，不知是哪里出了问题，麻烦你再检查一下，谢谢！

sunzhiguolu

回复 3# hkldd
把错误信息贴出来, 大家可以帮你看下...

   

thanatos0

这个用SHELL方便很多
awk 'BEGIN{count=0}NR==FNR{w[count]=$0;count++}NR>FNR{for (i in w) if(w[i]==$0){flag=1;break}if(flag!=1){print $0}flag=0}' 1.txt 2.txt
awk 'BEGIN{count=0}NR==FNR{w[count]=$0;count++}NR>FNR{for (i in w) if(w[i]==$0){flag=1;break}if(flag!=1){print $0}flag=0}' 2.txt 1.txt

输出
5d 24 32 3a 2b cc

1a 25 65 13 26 75
3d 44 35 5c 6b 9c

thanatos0

perl

open(IN, "1.txt") or die "open error: $!";
my @x = <IN>;
close (IN);
open(IN, "2.txt") or die "open error: $!";
my @y = <IN>;
close (IN);   
chomp(@y);
my $p = join('|', map{quotemeta} @y);
print (grep ! /$p/, @x);
chomp(@x);
my $n = join('|', map{quotemeta} @x);
print (grep ! /$n/, @y);
print "\n";

hkldd

谢谢大家的回复！我需要的是把a.txt与b.txt对比，把两个文档中相同的行都除掉，这样两个文档中就只剩下不相同的行了，不相同的行能回写到原文档最理想，或者分别写到另外的文件也可以，谢谢大家！

hkldd

我在论坛里找到rubyish大侠写的；在两个文件提不同的代码，能够把a.txt与b.txt中不同行提出来，代码如下；

1. #!/usr/bin/perl
   
2. 
   
3. my ( $i, $j ) = map { open my ($f), $_; $f } 'A.txt', 'B.txt';
   
4. my %a = map { $_, 1 } <$i>;
   
5. my %b = map { $_, 1 } <$j>;
   
6. print "A:\n", grep { !$b{$_} } keys %a;
   
7. print "B:\n", grep { !$a{$_} } keys %b;

复制代码

想麻烦大家把这段代码修改一下，把两个文件中的不同部分的输出结果，分别保存在c.txt与d.txt的两个文档中，最好能加上注释，让我学习学习，谢谢！

stanley_tam

1. egrep -v -f a.txt b.txt

复制代码