sortby

application/octet-stream

Download

#!/usr/bin/perl

use strict;
use warnings;

my @label = qw(dummy wall-1 user-1 wall-2 user-2 wall-4 user-4 wall-8 user-8 wall-16 user-16 wall-32 user-32);

my @res;
while (<>) {
    chomp;
    my @a = split;
    push @res, \@a;
}

for my $n (1..12) {
    my @z = sort { $a->[$n] <=> $b->[$n] } @res;
    print $label[$n] . ": " . join(',', map { sprintf "%s(%.1f)", $_->[0], $_->[$n] / $z[0]->[$n] } @z), "\n";
}