I've got a program running and extracting minimum values from the data
base, but if there is no data available for the day on the data base, the
value -999.9 is reflected. so how do I tell my program to skip the -999.9
when reading the data and then select the minimum value out of the data
base. pls check the program below:
!/usr/bin/perl-w
open(FH,"fort.4") || die " cannot open $list for reading : $!";
open(OUT,">mm") || die "cannot create mm: $!";
$tx_min = 9999;
$tx_max = -9999;
$tn_min = 999;
$tn_max = -9999;
while ($list = <FH> ){
($tn,$tx) = split (" ",$list);
print " $tn\t $tx\n";
if ($tn < $tn_min) { $tn_min = $tn }
if ( $tn > $tn_max) { $tn_max = $tn }
if ($tx < $tx_min) { $tx_min = $tx }
if ( $tx > $tx_max) { $tx_max = $tx }
$sum= $sum + $list ;
$chan = abs($tn - $tn_min);
}
$mean = $sum/9;
$change = abs($tn_min -$mean) *2 ;
$pp = abs($tn_max -$tn_min) ;
#$norm = $chan/$pp ;
#print OUT " $norm\n";
print OUT " $tn_min\n";
#print OUT " $tn_min\t$tn_max\n";
$name = "train";
if (-e $name) {
print " the file is already there $name\n";
} else {
print "perhaps you need make a new file $name\n";
}
close (train);
close(OUT) || die "cant close mm: $!";
"Your life is not a coincidence, its a reflection of You."
******************************************************************
Movalo R.S
Prediction Research
South African Weather Service
Pretoria, 0001
Tel: 012 309 3807
E-mail: [EMAIL PROTECTED]
Call our Weather line at 082 162
Visit our website at : www.weathersa.co.za
****************************************************************************
**********
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
