#! /bin/bash
 
mnths=( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec )
 
for files in `ls -rt *.hdf`
do
    echo "lon lat for the month of $files"
    mt=`basename $files .hdf`
    i=0
    for m in ${mnths[@]}
    do
        i=$(($i + 1))
        if [ "$mt" == "$m" ]
        then
            mt=$i
            break
        fi
    done
    while read LINE
    do
        [[ `echo $LINE | cut -d" " -f1` == "lon" ]] && continue
        [ `echo $LINE | cut -d" " -f3` -eq $mt ] && echo $LINE | cut -d" " -f1-2
    done < location.dat
done

#! /usr/bin/perl -w
use strict;
my ($file, $m);
my %months = (    "Jan" => 1, "Feb" => 2, "Mar" => 3, "Apr" => 4,  "May" => 5,  "Jun" => 6,
                  "Jul" => 7, "Aug" => 8, "Sep" => 9, "Oct" => 10, "Nov" => 11, "Dec" => 12);
 
for $file (glob "*.hdf") {
    print "lon lat for $file\n";
    $file =~ s/\.hdf//g;
    for (keys %months) {
        if ($file eq $_) { $m = $months{$_} }
    }
    open I, "< location.dat";
    for (<I>) {
        if (/^lon/) { next }
        if (/$m$/) { print $_ }
    }
    close I;
}