From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 8 Dec 2023 08:58:49 +0000 (+0100)
Subject: remove .000000 from values
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=d6b2d508833e58c88f02bf40de1ce20ec97c84eb;p=csv-join-similarity

remove .000000 from values
---

diff --git a/upari.pl b/upari.pl
index 72a512f..222dc39 100755
--- 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;