#!/usr/bin/perl -w

# arg 0 is filename
# arg 1 is 'w' or 'r' for reading or writing

$file = $ARGV[0];

$type = $ARGV[1];
print "$file\n";


open ( PFILE, "$file") or die "Can't open results";
while ( <PFILE> ) {
	chomp;
	@line = split( /\s+/ );
	if ( $type eq 'w' ) {
		# print "$line[5] $line[7] $line[9]\n";
		if( $line[9]) {
		$out{$line[5]}{$line[7]} = $line[9];	
		}
	} else {
		if( $line[18]) {
		# print "$line[5] $line[7] $line[18]\n";
		$out{$line[5]}{$line[7]} = $line[18];	
		}
	}
}

	foreach $crg ( sort { $a <=> $b }  ( keys %out )) {
		print "$crg";
		@list = ( sort { $a <=> $b } ( keys %{ $out{$crg} } ));
		 foreach $thr ( @list ) {
			# These are the headers
			 print ",$thr";
		 }
		 print "\n";
		 print "$crg";
		 foreach $tthr ( @list ) {
			 print ",$out{$crg}{$tthr}";
		 }
		print "\n";
	}