Хранилища Subversion geo-modmetar

(root)/tags/1.0/examples/simple_dump.pl - Редакция 3 → 5


#!/usr/bin/perl

# $Id: simple_dump.pl,v 1.1 2007/11/13 21:19:27 koos Exp $

# Example script for METAR.pm.

use Geo::ModMETAR;

my $m = new Geo::ModMETAR;
$m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014");
$m->dump;
exit;
 

Редакция 3	Редакция 5
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# $Id: simple_dump.pl,v 1.1 2007/11/13 21:19:27 koos Exp $	3	# $Id: simple_dump.pl,v 1.1 2007/11/13 21:19:27 koos Exp $
4		4
5	# Example script for METAR.pm.	5	# Example script for METAR.pm.
6		6
7	use Geo::ModMETAR;	7	use Geo::ModMETAR;
8		8
9	my $m = new Geo::ModMETAR;	9	my $m = new Geo::ModMETAR;
10	$m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014");	10	$m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014");
11	$m->dump;	11	$m->dump;
12	exit;	12	exit;
13		13