projects
/
csv-join-similarity
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
91153b3
)
remove .000000 from values
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 8 Dec 2023 08:58:49 +0000
(09:58 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 8 Dec 2023 08:58:49 +0000
(09:58 +0100)
upari.pl
patch
|
blob
|
history
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;