remove .000000 from values

[csv-join-similarity] / upari.pl

diff --git a/upari.pl b/upari.pl
index 72a512f..222dc39 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -152,7 +152,8 @@ foreach my $val ( 1 .. 4 ) {
                        #print "new=", dump( $row ), $/;
 =cut
                }
-               $data->{$key_id}->{$num}->{$val} = $row;
+               # remove .000000 from values
+               $data->{$key_id}->{$num}->{$val} = [ map { s/^(\d+)\.0+$/$1/g; $_; } @$row ];
        }
        close $fh;