#!/usr/bin/perl

# This script is meant to go through a WMO station file list
#  and pull out those stations that are within a selected area.
# That list will then be used to pull out data for relevant 
#  stations. 

# This script takes the inventory file available at:
#  ftp://ftp.ncdc.noaa.gov/pub/data/ghcn/v2/v2.prcp.inv
#  as the standard input. 

while(<>){
  chop;
  $lat = substr $_,41,7;
  $lon = substr $_,50,7;
  if((($lon >= 30)&&($lon <=50))&&
     (($lat >= 10)&&($lat <=20))){
    print $_,"\n";
  }
}
exit 0;