duplicate-$val.csv

diff --git a/upari.pl b/upari.pl
index f84ce45..72a512f 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -85,12 +85,13 @@ if ( -e $keys_file ) {
 our $data;
 our @data_headers;
 
-open(my $duplicate_fh, '>', 'duplicate.csv');
 
 foreach my $val ( 1 .. 4 ) {
        my $file = "$val.csv";
        warn "# $file\n";
 
+       open(my $duplicate_fh, '>', "duplicate-$val.csv");
+
        my $csv = Text::CSV->new ({ binary => 1, auto_diag => 1 });
        open my $fh, "<:encoding(utf8)", $file or die "$file: $!";
        while (my $row = $csv->getline ($fh)) {
@@ -133,11 +134,14 @@ foreach my $val ( 1 .. 4 ) {
 
                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;
+                       print "DUPLICATE $file $key_id $num $val\n";
+                       
                        my $old = $data->{$key_id}->{$num}->{$val};
                        print $duplicate_fh join(',', $file, @$old), "\n";
                        print $duplicate_fh join(',', $file, @$row), "\n";
+                       print $duplicate_fh "\n";
+=for diff
+                       my $diff;
                        foreach ( 0 .. $#$row ) {
                                if ( $old->[$_] ne $row->[$_] ) {
                                        $diff->[$_] = [ $old->[$_], $row->[$_] ];
@@ -146,6 +150,7 @@ foreach my $val ( 1 .. 4 ) {
                        print "diff = ",dump($diff) if $diff;
                        #print "old=", dump( $data->{$key_id}->{$num}->{$val} ), $/;
                        #print "new=", dump( $row ), $/;
+=cut
                }
                $data->{$key_id}->{$num}->{$val} = $row;
        }
@@ -299,5 +304,3 @@ foreach my $key ( sort keys %$data ) {
 close $out_fh;
 print "\n", -s $out_file, " bytes created\n";
 
-close $duplicate_fh;
-