blob: 07b02a92b980085e552105a212e9d891a74d0907 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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";
}
|
