CullData Documentation

This documents a perl script used to reformat the data used in SDT data case.

The script is quoted here:

#!/bin/csh -f
echo We remove the header information of file $1.
foreach i ( *.X ) 
		grep -v '%' $i:r.X >! $i.noh.X
		grep -v '%' $i:r.Y >! $i.noh.Y
		grep -v '%' $i:r.Z >! $i.noh.Z
    gawk '{print $2 "\t" $3 "\t"}' $i.noh.X >! $i:r.C23.X
    gawk '{print $3 "\t"}' $i.noh.Y >! $i:r.C3.Y
    gawk '{print $3 "\t"}' $i.noh.Z >! $i:r.C3.Z
		rm -f $i.noh.*
		pr -m -J -T *.C23.X *.C3.Y *.C3.Z > $i:r
		rm *.C*3*
end
foreach i ( *.GSE ) 
		mv $i $i:r
end

foreach i ( *.12 ) 
		mv $i 12
end
foreach i ( *.34 ) 
		mv $i 34
end
echo We concatenate the second and third columns of the data.

exit

Bill Kamp