数据匹配

haooooaaa

1. awk -F, 'NR==FNR{a[$3]+=$6*100;next}{b[$3]+=$6*100;c[$3]=c[$3]?c[$3]"\n"$0:$0}END{for(i in c)if(a[i]!=b[i])print c[i]}' a b

复制代码

jason680

百科
IEEE 754 标准是IEEE二进位浮点数算术标准（IEEE Standard for Floating-Point Arithmetic）的标准编号. ...

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hDiff;
   
6. while (<>){
   
7.     my (undef, undef, $sKey, undef, undef, $sValue) = split /,/;
   
8.     $sValue *= 100;
   
9.     unless ($hDiff{$ARGV}{$sKey}){
   
10.         $hDiff{$ARGV}{$sKey} = [$sValue, $_];
    
11.         next;
    
12.     }
    
13.     $hDiff{$ARGV}{$sKey}[0] += $sValue;
    
14. }
    
15. 
    
16. foreach my $sThis (sort keys %hDiff){
    
17.     my ($sThat) = grep $sThis ne $_, keys %hDiff;
    
18.     my ($this, $that) = @hDiff{$sThis,$sThat};
    
19.     my $sPrint = 0;
    
20.     while (my ($sK, $raData) = each %$this){
    
21.         print "$sThis\n" if (!$sPrint++);
    
22.         if (exists $that->{$sK}){
    
23.             next if ($raData->[0] == $that->{$sK}[0]);
    
24.             print "$raData->[-1]\n";
    
25.             next;
    
26.         }
    
27.         print "$raData->[-1]";
    
28.     }
    
29.     print "\n";
    
30. }
    

复制代码

a
SXFY,C03-4000693-4461650,10110520673421,,2015/10/29,-21.4,CROW,CROW
SXFY,,10110520673663,,2015/10/28,-22,CROW,CROW
SXFY,C03-8095210-3626417,10110520673538,,2015/10/29,-18.9,CROW,CROW
SXFY,C03-7211829-1732853,10110520673511,,2015/10/28,-729.28,CROW,CROW

b
SXFY,FC0-1668601-9159746,10110520675770,PEK3,2015/10/29,329,甘肃陕西飞远,COW,2015/11/30
SXFY,FC0-3464598-4749408,10110520675693,PEK3,2015/10/29,150,甘肃陕西飞远,COW,2015/11/30
SXFY,FC0-2263931-0537532,10110520675694,PEK3,2015/10/29,299,甘肃陕西飞远,COW,2015/11/30

sunzhiguolu

回复 9# cwd0204

1. perl ab.pl a b

复制代码

a
SXFY,C03-8095210-3626417,10110520673538,,2015/10/29,-18.9,CROW,CROW
SXFY,C03-4000693-4461650,10110520673421,,2015/10/29,-21.4,CROW,CROW
SXFY,C03-7211829-1732853,10110520673511,,2015/10/28,-729.28,CROW,CROW
SXFY,,10110520673663,,2015/10/28,-22,CROW,CROW

b
SXFY,FC0-3464598-4749408,10110520675693,PEK3,2015/10/29,150,甘肃陕西飞远,COW,2015/11/30
SXFY,FC0-2263931-0537532,10110520675694,PEK3,2015/10/29,299,甘肃陕西飞远,COW,2015/11/30
SXFY,FC0-1668601-9159746,10110520675770,PEK3,2015/10/29,329,甘肃陕西飞远,COW,2015/11/30

1. perl ab.pl b a

复制代码

a
SXFY,,10110520673663,,2015/10/28,-22,CROW,CROW
SXFY,C03-8095210-3626417,10110520673538,,2015/10/29,-18.9,CROW,CROW
SXFY,C03-4000693-4461650,10110520673421,,2015/10/29,-21.4,CROW,CROW
SXFY,C03-7211829-1732853,10110520673511,,2015/10/28,-729.28,CROW,CROW

b
SXFY,FC0-3464598-4749408,10110520675693,PEK3,2015/10/29,150,甘肃陕西飞远,COW,2015/11/30
SXFY,FC0-1668601-9159746,10110520675770,PEK3,2015/10/29,329,甘肃陕西飞远,COW,2015/11/30
SXFY,FC0-2263931-0537532,10110520675694,PEK3,2015/10/29,299,甘肃陕西飞远,COW,2015/11/30