#!/usr/bin/perl

#open(infile,"septum_12-09-11.dat");
open(infile,"testdata");
#open(outfile,">septum_12-09-11_trim1.dat");
while(<infile>){
    $line = $_;
    chomp($line);
    @data = split(/,/,$line);
    for (my $i = 0; $i<7; $i++){
	if ($data[$i] == ""){
	    $data[$i] = 0;
	}
    }
#    print outfile "$data[0]  $data[1]  $data[2]  $data[3]  $data[4]  $data[5]  $data[6]\n "
    print "$data[0]  $data[1]  $data[2]  $data[3]  $data[4]  $data[5]  $data[6]\n "
}
close(infile);
#close(outfile);
