#!/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->{HR} )
        && defined( $Ob->{LAT} )
        && $Ob->{LAT} < -30 )
    {
        print "\n";
        next;
    }
    printf "%04d/%02d/%02d:%02d:%02d", $Ob->{YR}, $Ob->{MO}, $Ob->{DY},
      int( $Ob->{HR} ), int( 60 * ( $Ob->{HR} - int( $Ob->{HR} ) ) );
    if ( defined( $Ob->{SLP} ) ) {
        printf " %6.1f", $Ob->{SLP};
    }
    else {
        print "       ";
    }
    print "\n";
}