Re: Is this possible

Untested, but this should work:

my @files = @ARGV;
my %table;
while (<>) {
  my ($name, $value) = split(' ', $_);
  $table{$name}->{$ARGV} = $value;
}
print join("\t", "NAME", @files), "\n";
for my $n (keys %table) {
    print $n;
    for my $f (@files) {
        print "\t", $table{$name}->{$f};
    }
    print "\n";
}
[download]

Then invoke it with:

perl script-name RESULTS_FILE*
[download]

Comment on Re: Is this possible Select or Download Code

Replies are listed 'Best First'.
Re^2: Is this possible by Anonymous Monk on Mar 24, 2008 at 06:22 UTC
It seems to work but it gets a bit messy with the filenames (it prints one over the other, not correctly separated with tabs)... The numbers seem to print ok though...	[reply]
Re^3: Is this possible by pc88mxer (Vicar) on Mar 24, 2008 at 16:02 UTC
Are you sure you have this line entered correctly? `print join("\t", "NAME", @files), "\n";` [download] That's the code responsible for printing the header line, so that's where I'd look. This will print tab characters in between each file name. What you are seeing might be an artifact of your text editor or the way your are viewing the file.	[reply] [d/l]