Hello PDL geniuses,
So, I read in an ASCII file with rcols(), and then place its data into a piddle
like so:
my
@data=rcols($fh,{INCLUDE=>$include,TYPES=>$types,PERLCOLS=>[0,16,17]},1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,18,19);
# set up hash to output;
my %rph; # Reformat Piddle Hash (Eggplant Susan Germane!)
# Load strings into hash;
$rph{"DTG"}=$data[17];
$rph{"DATASOURCE"}=$data[18];
$rph{"AUX_A"}=$data[19];
$rph{"DOY"}=$data[0];
$rph{"LON"}=$data[1];
$rph{"LAT"}=$data[2];
But sometimes there are bad data, which I can detect by tests on LAT and LON:
my $lonvalues = $rph->{"LON"};
my($goodlon)=where($lonvalues,($lonvalues >= -180)*($lonvalues <= 180));
But what I don't know is how to make a piddle using only the good values in
$goodlon. Can someone illustrate how to do this?
Thanks,
--Edward H.
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
