4 # arg 1 is 'w' or 'r' for reading or writing
12 open ( PFILE, "$file") or die "Can't open results";
15 @line = split( /\s+/ );
17 # print "$line[5] $line[7] $line[9]\n";
19 $out{$line[5]}{$line[7]} = $line[9];
23 # print "$line[5] $line[7] $line[18]\n";
24 $out{$line[5]}{$line[7]} = $line[18];
29 foreach $crg ( sort { $a <=> $b } ( keys %out )) {
31 @list = ( sort { $a <=> $b } ( keys %{ $out{$crg} } ));
32 foreach $thr ( @list ) {
33 # These are the headers
38 foreach $tthr ( @list ) {
39 print ",$out{$crg}{$tthr}";