# #!/usr/bin/perl 

#1016035500001966-9999-9999-9999-9999-9999-9999-9999-9999-9999-9999  133  110
#030050-99999-1929,NA,NA,NA,NA,NA,NA,NA,NA,NA,79,71,60 
#030050-999991929,NA,NA,NA,NA,NA,NA,NA,NA,NA,79,71,60 

$infile = "v2.gsod.mean-tmp";

open MEANS, "<$infile" or die "Could not open $infile: $!";

while (<MEANS>) {
	chomp();
	s/NA/-9999/g;
	@line = split(/,/);
	$_ = @line[0];
	s/\.op//;
	s/-//;
	$id = $_;
	printf "%16s%5d%5d%5d%5d%5d%5d%5d%5d%5d%5d%5d%5d\n", $id,
		$line[1], $line[2], $line[3], $line[4], 
		$line[5], $line[6], $line[7], $line[8], 
		$line[9], $line[10], $line[11], $line[12];
	
}