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:
b8b9f1e
)
add _val to column names to make them unique
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 23 Nov 2023 20:14:35 +0000
(21:14 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 23 Nov 2023 20:14:35 +0000
(21:14 +0100)
upari.pl
patch
|
blob
|
history
diff --git
a/upari.pl
b/upari.pl
index
7c2cc81
..
0a5ba15
100755
(executable)
--- a/
upari.pl
+++ b/
upari.pl
@@
-257,7
+257,11
@@
store $merge_ids, $merge_file;
my $out_file = 'merged.csv';
print "out_file $out_file";
open(my $out_fh, '>', $out_file);
my $out_file = 'merged.csv';
print "out_file $out_file";
open(my $out_fh, '>', $out_file);
-print $out_fh join(',', map { @{ $data_headers[$_] } } 1 .. 4 ), "\n";
+foreach my $val ( 1 .. 4 ) {
+ print $out_fh join(',', map { $_ . '_' . $val } @{ $data_headers[$val] });
+ print $out_fh ',' if $val < 4;
+}
+print $out_fh "\n";
foreach my $key ( sort keys %$data ) {
print " $key";
foreach my $key ( sort keys %$data ) {
print " $key";