dump more info about duplicate input rows

diff --git a/upari.pl b/upari.pl
index 0a5ba15..4b89c35 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -129,6 +129,20 @@ foreach my $val ( 1 .. 4 ) {
 
                push @{ $stat->{_}->{ $id } }, $val;
 
+               if ( exists $data->{$key_id}->{$num}->{$val} ) {
+                       $stat->{file}->{$file}->{duplicate_keyid_num}->{$val}++;
+                       print "DUPLICATE $key_id $num $val old elements=", $#{ $data->{$key_id}->{$num}->{$val} }, "new ", $#$row, $/;
+                       my $diff;
+                       my $old = $data->{$key_id}->{$num}->{$val};
+                       foreach ( 0 .. $#$row ) {
+                               if ( $old->[$_] ne $row->[$_] ) {
+                                       $diff->[$_] = [ $old->[$_], $row->[$_] ];
+                               }
+                       }
+                       print "diff = ",dump($diff) if $diff;
+                       #print "old=", dump( $data->{$key_id}->{$num}->{$val} ), $/;
+                       #print "new=", dump( $row ), $/;
+               }
                $data->{$key_id}->{$num}->{$val} = $row;
        }
        close $fh;