geo-metar.pl to HTML.

index -|- end

Generated: Sun Aug 21 11:11:03 2011 from geo-metar.pl 2011/01/02 319.

#/bin/perl
use strict;
use warnings;
use Geo::METAR;
sub prt($) { print shift; }
my $met = 'YSDU 021730Z AUTO 10008KT 9999 NCD 21/18 Q1010';
my $met2 = "KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014";
my $m = new Geo::METAR;
prt("Decode: $met\n");
$m->metar($met);
prt( $m->dump );
exit;
# eof

index -|- top

checked by tidy  Valid HTML 4.01 Transitional