3 # parses obdfilter output from our script goop
13 open ( PFILE, "$file") or die "Can't open results";
16 @line = split( /\s+/ );
18 # print "$line[5] $line[7] $line[9]\n";
20 $out{$line[7]}{$line[9]} = $line[11];
22 } elsif ( $type eq 'r' ) {
24 # print "$line[5] $line[7] $line[18]\n";
25 $out{$line[7]}{$line[9]} = $line[21];
28 # print "$line[5] $line[7] $line[18]\n";
29 $out{$line[7]}{$line[9]} = $line[16];
33 foreach $crg ( sort { $a <=> $b } ( keys %out )) {
35 @list = ( sort { $a <=> $b } ( keys %{ $out{$crg} } ));
36 foreach $thr ( @list ) {
37 # These are the headers
42 foreach $tthr ( @list ) {
43 print ",$out{$crg}{$tthr}";