Help for this page

Select Code to Download


  1. or download this
    ...
my ($record, $date, $outfile, %stations, $sstation, $linecnt, $pcntg, 
+@values);
...
%stations = map{ $_ => 1 } @ARGV[ 2 .. $#ARGV];
... 
if( $values[0] eq $date && exists $stations{ $sstation } ) {
  2. or download this
    perl midasproc2.pl midas_wxhrly_199901-199912.txt "1999-12-15 11:00" 1
+9260 19261 19262 [...]