Редакция 3 | Содержимое файла | Сравнить с предыдущей | Последнее изменение | Открыть журнал | RSS
Редакция | Автор | № строки | Строка |
---|---|---|---|
3 | alex-w | 1 | #!/usr/bin/perl |
2 | |||
3 | # $Id: simple_dump.pl,v 1.1 2007/11/13 21:19:27 koos Exp $ |
||
4 | |||
5 | # Example script for METAR.pm. |
||
6 | |||
7 | use Geo::ModMETAR; |
||
8 | |||
9 | my $m = new Geo::ModMETAR; |
||
10 | $m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014"); |
||
11 | $m->dump; |
||
12 | exit; |