#!/usr/bin/perl

# Extract a timeseries of data
#  from an IMMA file.

use strict;
use warnings;
use IMMA;

while ( my $Ob = imma_read( \*STDIN ) ) {

    unless ( defined( $Ob->{YR} )
        && defined( $Ob->{MO} )
        && defined( $Ob->{DY} )
        && defined( $Ob->{LAT} )
        && $Ob->{LAT} < -77 )
    {
        print "\n";
        next;
    }
    printf "%04d/%02d/%02d", $Ob->{YR}, $Ob->{MO}, $Ob->{DY};
    if ( defined( $Ob->{AT} ) ) {
        printf " %6.1f", $Ob->{AT};
    }
    else {
        print "       ";
    }
    print "\n";
}