如何得到兩個文件中不同的部分

xingzhou823

我有兩個文件，A與B，其中的大部分數(shù)據(jù)時相同的，我想找出兩個文件中不同的部分：只有A中有的，只有B中有的。
例如：
A.txt
11-11
22-22
33-33
12-34
44-44

B.txt
11-11
22-22
43-21
56-78
33-33
44-44

得到結(jié)果：
A：12-34
B: 43-21
    56-78

結(jié)果分別輸出到兩個文件中也行，單獨在一個文件中也可。
請教。

cdtits

1. zhu@ubuntu:~/shell$ diff -y a.txt b.txt
   
2. 11-11                                                                11-11
   
3. 22-22                                                                22-22
   
4.                                                               >        43-21
   
5.                                                               >        56-78
   
6. 33-33                                                                33-33
   
7. 12-34                                                              <
   
8. 44-44                                                                44-44
   

復制代碼

cdtits

1. zhu@ubuntu:~/perl$ ./diff.pl a.txt b.txt
   
2. a.txt:
   
3. 12-34
   
4. b.txt:
   
5. 43-21
   
6. 56-78
   
7. zhu@ubuntu:~/perl$ cat diff.pl
   
8. #!/usr/bin/env perl
   
9. 
   
10. use strict;
    
11. use warnings;
    
12. 
    
13. sub do_diff {
    
14.     my ($fa, $fb) = @_;
    
15.     undef $/;
    
16.     my $text = $fa . ":\n";
    
17.     open my $fh, '<', $fa or die $!;
    
18.     $text .= <$fh>;
    
19.     close $fh or die $!;
    
20.     $text .= $fb . ":\n";
    
21.     open $fh, '<', $fb or die $!;
    
22.     $text .= <$fh>;
    
23.     close $fh or die $!;
    
24. 
    
25.     while ($text =~ s/(^.*?$)\n(.*)(\1)\n/$2/mgs) {};
    
26. 
    
27.     return $text;
    
28. }
    
29. 
    
30. my $fa = $ARGV[0] || 'a.txt';
    
31. my $fb = $ARGV[1] || 'b.txt';
    
32. my $text = do_diff($fa, $fb);
    
33. print $text;
    
34. zhu@ubuntu:~/perl$ cat a.txt
    
35. 11-11
    
36. 22-22
    
37. 33-33
    
38. 12-34
    
39. 44-44
    
40. zhu@ubuntu:~/perl$ cat b.txt
    
41. 11-11
    
42. 22-22
    
43. 43-21
    
44. 56-78
    
45. 33-33
    
46. 44-44
    
47. zhu@ubuntu:~/perl$
    

復制代碼

xmchenb

#!D:\strawberry\perl\bin\perl5.12.3 -w

use strict;
use warnings;

my $filename1="d:/cc/a.txt";
my $filename2="d:/cc/b.txt";

open FILE,$filename1 or die "Can’t open '$filename1': $!";
my @LINE1=<FILE>;
close FILE;

open FILE,$filename2 or die "Can’t open '$filename2': $!";
my @LINE2=<FILE>;
close FILE;

my @LINE3;
my @LINE4;
my $sum1=0;
my $sum2=0;

while(my $a=<@LINE1>)
{
        while(my $b=<@LINE2>)
        {
                if($a eq $b)
                {
      $sum1+=1;
                }
               
        }
        if($sum1 == 0)
        {
                push @LINE3,$a;
        }
        $sum1=0;
}
while(my $a=<@LINE2>)
{
        while(my $b=<@LINE1>)
        {
                if($a eq $b)
                {
      $sum2+=1;
                }
               
        }
        if($sum2 == 0)
        {
                push @LINE4,$a;
        }
                $sum2=0;
}

while(<@LINE3>)
{
        print "A:",$_,"\n";
}
while(<@LINE4>)
{
        print "B:",$_,"\n";
}

xiyoulaoyuanjia

還是覺得diff 命令好使

perlnewbie

1. #!perl -w
   
2. use strict;
   
3. # AUTHOR: niejieqiang
   
4. use Text::Diff;
   
5. 
   
6. open my $fh, ">", "diff_file.txt";
   
7. my $diff = diff "file1.txt", "file2.txt", {
   
8.     STYLE  => "Context",
   
9.     OUTPUT => \*$fh,
   
10. };
    
11. close $fh;

復制代碼

rubyish

例如：

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;

復制代碼

longbow0

comm 命令更好

A中有

1. comm -23 A B

復制代碼

B 中有

1. comm -13 A B

復制代碼

A, B 共有

1. comm -12 A B

復制代碼

hkldd

rubyish大俠；能否把你下面這段代碼修改成；把兩個文件中的不同部分分別保存在兩個文件中。謝謝！

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;

復制代碼