diff options
author | graehl <graehl@ec762483-ff6d-05da-a07a-a48fb63a330f> | 2010-08-03 21:56:25 +0000 |
---|---|---|
committer | graehl <graehl@ec762483-ff6d-05da-a07a-a48fb63a330f> | 2010-08-03 21:56:25 +0000 |
commit | 250f75706e4de1470163e0b4c791035bc9822fb6 (patch) | |
tree | 5436f71d74bbac897db7e85642e6616d1c10e6c8 /report/prune_results/merge-columns.pl | |
parent | 2fd80bbceadd625b74f8cbd989c945ce24a60fcc (diff) |
graph
git-svn-id: https://ws10smt.googlecode.com/svn/trunk@470 ec762483-ff6d-05da-a07a-a48fb63a330f
Diffstat (limited to 'report/prune_results/merge-columns.pl')
-rwxr-xr-x | report/prune_results/merge-columns.pl | 20 |
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"; +} |