1 files changed, 20 insertions, 0 deletions
diff --git a/report/prune_results/merge-columns.pl b/report/prune_results/merge-columns.pl
new file mode 100755
index 00000000..07b02a92
--- /dev/null
+++ b/report/prune_results/merge-columns.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+use strict;
+my $T="\t";
+my %d;
+sub info {
+    local $,=' ';
+    print STDERR @_,"\n";
+}
+for my $n (0..$#ARGV) {
+    open F,'<',$ARGV[$n];
+    info($n,$ARGV[$n]);
+    while(<F>) {
+        my ($x,$f,$r)=split ' ',$_,3;
+        $d{$x}->[$n]=$f
+    }
+}
+for (sort keys %d) {
+    my @f=map { $T.(defined($_)?$_:'x') } @{$d{$_}};
+    print $_,@f,"\n";
+}