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

# AW: create fork Geo::METAR as Geo::ModMETAR

# AW: create fork Geo::METAR as Geo::ModMETAR

#

#

# KH: fix the parser

# KH: fix the parser

# should be a finite state machine

# should be a finite state machine

# - metar has rules what comes after what. but codes can be missing.

# - metar has rules what comes after what. but codes can be missing.

# (measurement not done) or //// (measurement broken at the moment)

# (measurement not done) or //// (measurement broken at the moment)

# so given a state counter, it can stay the same or go up one or more states,

# so given a state counter, it can stay the same or go up one or more states,

# but it can never go down

# but it can never go down

#

#

# info on the last bit which is actually a forecast: (German)

# info on the last bit which is actually a forecast: (German)

# http://www.wetterklima.de/flug/metar/Metarvorhersage.htm

# http://www.wetterklima.de/flug/metar/Metarvorhersage.htm

#

#

# more info here (dutch, and txt 707 is not standard metar)

# more info here (dutch, and txt 707 is not standard metar)

# http://www.vwkweb.nl/index.html?http://www.vwkweb.nl/weerinfo/weerinfo_teletekst707.html

# http://www.vwkweb.nl/index.html?http://www.vwkweb.nl/weerinfo/weerinfo_teletekst707.html

# and also (dutch)

# and also (dutch)

# http://www.gids.nl/weather/eheh/metari.html

# http://www.gids.nl/weather/eheh/metari.html

#

#

# 'METAR decoding in Europe'

# 'METAR decoding in Europe'

# http://users.hol.gr/~chatos/VATSIM/TM/metar.html

# http://users.hol.gr/~chatos/VATSIM/TM/metar.html

#

#

# english explanation

# english explanation

# http://booty.org.uk/booty.weather/metinfo/codes/METAR_decode.htm

# http://booty.org.uk/booty.weather/metinfo/codes/METAR_decode.htm

#

#

# canadian explanation

# canadian explanation

# http://meteocentre.com/doc/metar.html

# http://meteocentre.com/doc/metar.html

#

#

# 'METAR decoding, TAF decoding'

# 'METAR decoding, TAF decoding'

# http://stoivane.kapsi.fi/metar/

# http://stoivane.kapsi.fi/metar/

#

#

# This module is used for decoding NWS METAR code.

# This module is used for decoding NWS METAR code.

# Example METARs

# Example METARs

#

#

# Findlay, Ohio

# Findlay, Ohio

# KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK SLP201 57014

# KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK SLP201 57014

#

#

# Toledo, Ohio

# Toledo, Ohio

# KTOL 251451Z 23016G22KT 8SM CLR 04/00 A3006 RMK AO2 SLP185 T00440000 56016 

# KTOL 251451Z 23016G22KT 8SM CLR 04/00 A3006 RMK AO2 SLP185 T00440000 56016 

#

#

# Cleveland, Ohio

# Cleveland, Ohio

# KCLE 251554Z 20015KT 10SM FEW055 OVC070 03/M02 A3011 RMK AO2 SLP205 T00331017

# KCLE 251554Z 20015KT 10SM FEW055 OVC070 03/M02 A3011 RMK AO2 SLP205 T00331017

#

#

# Houston, Texas

# Houston, Texas

# KHST 251455Z 06017G22KT 7SM FEW040 BKN330 25/18 A3016 RMK SLP213 8/508

# KHST 251455Z 06017G22KT 7SM FEW040 BKN330 25/18 A3016 RMK SLP213 8/508

# 9/205 51007

# 9/205 51007

#

#

# LA

# LA

#

#

# KLAX 251450Z 07004KT 7SM SCT100 BKN200 14/11 A3005 RMK AO2 SLP173

# KLAX 251450Z 07004KT 7SM SCT100 BKN200 14/11 A3005 RMK AO2 SLP173

# T01390111 56005

# T01390111 56005

#

#

# Soesterberg

# Soesterberg

#

#

# EHSB 181325Z 24009KT 8000 -RA BR FEW011 SCT022 OVC030 07/06 Q1011 WHT WHT TEMPO GRN

# EHSB 181325Z 24009KT 8000 -RA BR FEW011 SCT022 OVC030 07/06 Q1011 WHT WHT TEMPO GRN

# For METAR info, please see

# For METAR info, please see

# http://tgsv5.nws.noaa.gov/oso/oso1/oso12/metar.htm

# http://tgsv5.nws.noaa.gov/oso/oso1/oso12/metar.htm

# moved

# moved

# http://metar.noaa.gov/

# http://metar.noaa.gov/

#

#

# in scary detail (metar coding)

# in scary detail (metar coding)

#

#

# http://metar.noaa.gov/table_master.jsp?sub_menu=yes&show=fmh1ch12.htm&dir=./handbook/&title=title_handbook

# http://metar.noaa.gov/table_master.jsp?sub_menu=yes&show=fmh1ch12.htm&dir=./handbook/&title=title_handbook

#

#

# The METAR specification is dictated in the Federal Meteorological Handbook

# The METAR specification is dictated in the Federal Meteorological Handbook

# which is available on-line at:

# which is available on-line at:

# http://tgsv5.nws.noaa.gov/oso/oso1/oso12/fmh1.htm

# http://tgsv5.nws.noaa.gov/oso/oso1/oso12/fmh1.htm

# General Structure is:

# General Structure is:

# TYPE, SITE, DATE/TIME, WIND, VISIBILITY, CLOUDS, TEMPERATURE, PRESSURE, REMARKS

# TYPE, SITE, DATE/TIME, WIND, VISIBILITY, CLOUDS, TEMPERATURE, PRESSURE, REMARKS

# Specifically:

# Specifically:

# TYPE (optional)

# TYPE (optional)

# METAR or SPECI

# METAR or SPECI

# METAR: regular report

# METAR: regular report

# SPECI: special report

# SPECI: special report

# SITE (required, only once)

# SITE (required, only once)

#

#

# 4-Char site identifier (KLAX for LA, KHST for Houston)

# 4-Char site identifier (KLAX for LA, KHST for Houston)

# DATE/TIME (required, only once)

# DATE/TIME (required, only once)

#

#

# 6-digit time followed by "Z", indicating UTC

# 6-digit time followed by "Z", indicating UTC

# REPORT MODIFIER (optional)

# REPORT MODIFIER (optional)

# AUTO or COR

# AUTO or COR

# AUTO = Automatic report (no human intervention)

# AUTO = Automatic report (no human intervention)

# COR = Corrected METAR or SPECI

# COR = Corrected METAR or SPECI

# WIND (group)

# WIND (group)

#

#

# Wind direction (\d\d\d) and speed (\d?\d\d) and optionaling gusting

# Wind direction (\d\d\d) and speed (\d?\d\d) and optionaling gusting

# information denoted by "G" and speed (\d?\d\d) followed by "KT", for knots.

# information denoted by "G" and speed (\d?\d\d) followed by "KT", for knots.

#

#

# Wind direction MAY be "VRB" (variable) instead of a compass direction.

# Wind direction MAY be "VRB" (variable) instead of a compass direction.

#

#

# Variable Wind Direction (Speeds greater than 6 knots).  Variable wind

# Variable Wind Direction (Speeds greater than 6 knots).  Variable wind

# direction with wind speed greater than 6 knots shall be coded in the

# direction with wind speed greater than 6 knots shall be coded in the

# format, dndndnVdxdxdx

# format, dndndnVdxdxdx

#

#

# Calm wind is recorded as 00000KT.

# Calm wind is recorded as 00000KT.

# VISIBILITY (group)

# VISIBILITY (group)

#

#

# Visibility (\d+) followed by "SM" for statute miles or no 'SM' for meters

# Visibility (\d+) followed by "SM" for statute miles or no 'SM' for meters

# (european)

# (european)

#

#

# May be 1/(\d)SM for a fraction.

# May be 1/(\d)SM for a fraction.

#

#

# May be M1/\d)SM for less than a given fraction. (M="-")

# May be M1/\d)SM for less than a given fraction. (M="-")

#

#

# \d\d\d\d according to KNMI

# \d\d\d\d according to KNMI

# lowest horizontal visibility (looking around)

# lowest horizontal visibility (looking around)

# round down

# round down

# 0000 - 0500m in steps of 0050m

# 0000 - 0500m in steps of 0050m

# 0500 - 5000m in steps of 0100m

# 0500 - 5000m in steps of 0100m

# 5000 - 9999m in steps of 1000m

# 5000 - 9999m in steps of 1000m

# 10km or more is 9999

# 10km or more is 9999

# RUNWAY Visual Range (Group)

# RUNWAY Visual Range (Group)

#

#

# R(\d\d\d)(L|C|R)?/((M|P)?\d\d\d\d){1,2}FT

# R(\d\d\d)(L|C|R)?/((M|P)?\d\d\d\d){1,2}FT

#

#

# Where:

# Where:

#  $1 is the runway number.

#  $1 is the runway number.

#  $2 is the runway (Left/Center/Right) for parallel runways.

#  $2 is the runway (Left/Center/Right) for parallel runways.

#  $3 is the reported visibility in feet.

#  $3 is the reported visibility in feet.

#  $4 is the MAXIMUM reported visibility, making $3 the MINIMUM.

#  $4 is the MAXIMUM reported visibility, making $3 the MINIMUM.

#

#

#  "M" beginning a value means less than the reportable value of \d\d\d\d.

#  "M" beginning a value means less than the reportable value of \d\d\d\d.

#  "P" beginning a value means more than the reportable value of \d\d\d\d.

#  "P" beginning a value means more than the reportable value of \d\d\d\d.

#

#

#  new

#  new

#

#

#  R(\d\d\d[LCR]?)/([MP]?\d\d\d\d)(V[MP]?\d\d\d\d)?FT

#  R(\d\d\d[LCR]?)/([MP]?\d\d\d\d)(V[MP]?\d\d\d\d)?FT

#

#

# $1 runway number + Left/Center/Right

# $1 runway number + Left/Center/Right

# $2 visibility feet

# $2 visibility feet

# $3 Varying feet

# $3 Varying feet

# M = less than

# M = less than

# P = more than

# P = more than

# WEATHER (Present Weather Group)

# WEATHER (Present Weather Group)

#

#

# See table in Chapter 12 of FMH-1.

# See table in Chapter 12 of FMH-1.

# CLOUDS (Sky Condition Group)

# CLOUDS (Sky Condition Group)

#

#

# A space-separated grouping of cloud conditions which will contain at least

# A space-separated grouping of cloud conditions which will contain at least

# one cloud report. Examples: "CLR", "BKN330", "SCT100", "FEW055", "OVC070"

# one cloud report. Examples: "CLR", "BKN330", "SCT100", "FEW055", "OVC070"

# The three-letter codes represent the condition (Clear, Broken, Scattered,

# The three-letter codes represent the condition (Clear, Broken, Scattered,

# Few, Overcast) and the numbers (\d\d\d) represent altitlude/100.

# Few, Overcast) and the numbers (\d\d\d) represent altitlude/100.

#

#

# The report may have a trailing CB (cumulonimbus) or TCU (towering

# The report may have a trailing CB (cumulonimbus) or TCU (towering

# cumulus) appended. ([A-Z]{2,3})?(\d\d\d)(CB|TCU)?

# cumulus) appended. ([A-Z]{2,3})?(\d\d\d)(CB|TCU)?

# Vertical visibility (VV)

# Vertical visibility (VV)

#

#

# VV

# VV

# This group is reported when the sky is obscured. VV is the group indicator,

# This group is reported when the sky is obscured. VV is the group indicator,

# and hshshs is the vertical visibility in units of 30 metres

# and hshshs is the vertical visibility in units of 30 metres

# (hundreds of feet).

# (hundreds of feet).

#  

#  

#  hshshs - Examples of Encoding

#  hshshs - Examples of Encoding

#  HEIGHT               METAR CODE

#  HEIGHT               METAR CODE

#  100 ft       (30 metres)     001

#  100 ft       (30 metres)     001

#  450 ft       (135 metres)    004

#  450 ft       (135 metres)    004

#  2,700 ft     (810 metres)    027

#  2,700 ft     (810 metres)    027

#  12,600 ft    (3,780 metres)  1300

#  12,600 ft    (3,780 metres)  1300

#

#

# source http://meteocentre.com/doc/metar.html

# source http://meteocentre.com/doc/metar.html

# 

# 

# TEMPERATURE and DEW POINT

# TEMPERATURE and DEW POINT

#

#

# (M?\d\d)/(M?\d\d) where $1 is the current temperature in degrees celcius,

# (M?\d\d)/(M?\d\d) where $1 is the current temperature in degrees celcius,

# and $2 is the current dewpoint in degrees celcius.

# and $2 is the current dewpoint in degrees celcius.

#

#

# The "M" signifies a negative temperature, so converting the "M" to a

# The "M" signifies a negative temperature, so converting the "M" to a

# "-" ought to suffice.

# "-" ought to suffice.

# PRESSURE

# PRESSURE

#

#

# The pressure, or altimeter setting, at the reporting site recorded in whole

# The pressure, or altimeter setting, at the reporting site recorded in whole

# hectopascals (starts with a Q) or inches of mercury (Hg) minus the decimal

# hectopascals (starts with a Q) or inches of mercury (Hg) minus the decimal

# point (starts with an A). It should always look like ([AQ]\d\d\d\d).

# point (starts with an A). It should always look like ([AQ]\d\d\d\d).

#

#

# KNMI: Q\d\d\d\d pressure in hPa calculated for sea level

# KNMI: Q\d\d\d\d pressure in hPa calculated for sea level

# REMARKS

# REMARKS

#

#

# Remarks contain additional information. They are optional but often

# Remarks contain additional information. They are optional but often

# informative of special conditions.

# informative of special conditions.

#

#

# Remarks begin with the "RMK" keyword and continue to the end of the line.

# Remarks begin with the "RMK" keyword and continue to the end of the line.

#

#

# trend group

# trend group

#

#

# color codes BLU WHT GRN YLO AMB RED

# color codes BLU WHT GRN YLO AMB RED

# BLACK: vliegveld dicht

# BLACK: vliegveld dicht

# future trend 

# future trend 

# NOSIG no significant change

# NOSIG no significant change

# TEMPO temporary change

# TEMPO temporary change

# WHT WHT TEMPO GRN = current white, prediction white temporary green

# WHT WHT TEMPO GRN = current white, prediction white temporary green

# NSW no significant weather

# NSW no significant weather

# AT at a given time

# AT at a given time

# PROB30 probability 30%

# PROB30 probability 30%

# BECMG becoming

# BECMG becoming

# BECMG (weather) FM \d\d\d\d TL \d\d\d\d = from until utc times

# BECMG (weather) FM \d\d\d\d TL \d\d\d\d = from until utc times

# BECMG (weather) AT \d\d\d\d = at utc time

# BECMG (weather) AT \d\d\d\d = at utc time

# BECMG (weather) TL \d\d\d\d = change until utc time

# BECMG (weather) TL \d\d\d\d = change until utc time

# BECMG 2000 visibility

# BECMG 2000 visibility

# BECMG NSW weather type

# BECMG NSW weather type

# etc etc

# etc etc

# FCST CANCEL (2 tokens!) Forecast cancel: no further forecasts for a while

# FCST CANCEL (2 tokens!) Forecast cancel: no further forecasts for a while

### Package Definition

### Package Definition

package Geo::ModMETAR; # Package based on Debian Geo::METAR

package Geo::ModMETAR; # Package based on Debian Geo::METAR

## Required Modules

## Required Modules

use 5.005;

use 5.005;

use strict;

use strict;

use vars qw($AUTOLOAD $VERSION);

use vars qw($AUTOLOAD $VERSION);

use Carp 'cluck';

use Carp 'cluck';

##

##

## Lookup tables

## Lookup tables

##

##

my %_weather_types = (

my %_weather_types = (

    MI => 'shallow',

    MI => 'shallow',

    PI => 'partial',

    PI => 'partial',

    BC => 'patches',

    BC => 'patches',

    DR => 'drizzle',

    DR => 'drizzle',

    BL => 'blowing',

    BL => 'blowing',

    SH => 'shower(s)',

    SH => 'shower(s)',

    TS => 'thunderstorm',

    TS => 'thunderstorm',

    FZ => 'freezing',

    FZ => 'freezing',

    DZ => 'drizzle',

    DZ => 'drizzle',

    RA => 'rain',

    RA => 'rain',

    SN => 'snow',

    SN => 'snow',

    SG => 'snow grains',

    SG => 'snow grains',

    IC => 'ice crystals',

    IC => 'ice crystals',

    PE => 'ice pellets',

    PE => 'ice pellets',

    GR => 'hail',

    GR => 'hail',

    GS => 'small hail/snow pellets',

    GS => 'small hail/snow pellets',

    UP => 'unknown precip',

    UP => 'unknown precip',

    BR => 'mist',

    BR => 'mist',

    FG => 'fog',

    FG => 'fog',

    PRFG => 'fog banks',  # officially PR is a modifier of FG

    PRFG => 'fog banks',  # officially PR is a modifier of FG

    FU => 'smoke',

    FU => 'smoke',

    VA => 'volcanic ash',

    VA => 'volcanic ash',

    DU => 'dust',

    DU => 'dust',

    SA => 'sand',

    SA => 'sand',

    HZ => 'haze',

    HZ => 'haze',

    PY => 'spray',

    PY => 'spray',

    PO => 'dust/sand whirls',

    PO => 'dust/sand whirls',

    SQ => 'squalls',

    SQ => 'squalls',

    FC => 'funnel cloud(tornado/waterspout)',

    FC => 'funnel cloud(tornado/waterspout)',

    SS => 'sand storm',

    SS => 'sand storm',

    DS => 'dust storm',

    DS => 'dust storm',

);

);

my $_weather_types_pat = join("|", keys(%_weather_types));

my $_weather_types_pat = join("|", keys(%_weather_types));

my %_weather_types_ru = (

my %_weather_types_ru = (

    MI => 'мелкий',

    MI => 'мелкий',

    PI => 'частный',

    PI => 'частный',

    BC => 'местами',

    BC => 'местами',

    DR => 'мелкий дождь',

    DR => 'мелкий дождь',

    BL => 'порывистый ветер',

    BL => 'порывистый ветер',

    SH => 'ливневый дождь',

    SH => 'ливневый дождь',

    TS => 'гроза',

    TS => 'гроза',

    FZ => 'заморозки',

    FZ => 'заморозки',

    DZ => 'мелкий дождь',

    DZ => 'мелкий дождь',

    RA => 'дождь',

    RA => 'дождь',

    SN => 'снег',

    SN => 'снег',

    SG => 'снег гранулами',

    SG => 'снег гранулами',

    IC => 'ледяные кристаллы',

    IC => 'ледяные кристаллы',

    PE => 'ледяные шарики',

    PE => 'ледяные шарики',

    GR => 'град',

    GR => 'град',

    GS => 'небольшой град',

    GS => 'небольшой град',

    UP => 'осадки',

    UP => 'осадки',

    BR => 'легкий туман',

    BR => 'легкий туман',

    FG => 'туман',

    FG => 'туман',

    PRFG => 'образование тумана',

    PRFG => 'образование тумана',

    FU => 'дым',

    FU => 'дым',

    VA => 'вулканический пепел',

    VA => 'вулканический пепел',

    DU => 'пыль',

    DU => 'пыль',

    SA => 'песок',

    SA => 'песок',

    HZ => 'дымка',

    HZ => 'дымка',

    PY => 'водяная пыль',

    PY => 'водяная пыль',

    PO => 'песчаные или пылевые вихри',

    PO => 'песчаные или пылевые вихри',

    SQ => 'шквалистый ветер',

    SQ => 'шквалистый ветер',

    FC => 'торнадо',

    FC => 'торнадо',

    SS => 'песчанная буря',

    SS => 'песчанная буря',

    DS => 'пылевая буря',

    DS => 'пылевая буря',

);

);

my $_weather_types_ru_pat = join("|", keys(%_weather_types_ru));

my $_weather_types_ru_pat = join("|", keys(%_weather_types_ru));

my %_sky_types = (

my %_sky_types = (

    SKC => "Sky Clear",

    SKC => "Sky Clear",

    CLR => "Sky Clear",

    CLR => "Sky Clear",

    SCT => "Scattered",

    SCT => "Scattered",

    BKN => "Broken",

    BKN => "Broken",

    FEW => "Few",

    FEW => "Few",

    OVC => "Solid Overcast",

    OVC => "Solid Overcast",

    NSC => "No significant clouds",

    NSC => "No significant clouds",

    NCD => "No cloud detected",

    NCD => "No cloud detected",

);

);

my %_sky_types_ru = (

my %_sky_types_ru = (

    SKC => "ясно",

    SKC => "ясно",

    CLR => "ясно",

    CLR => "ясно",

    SCT => "переменная облачность",

    SCT => "переменная облачность",

    BKN => "переменная облачность",

    BKN => "переменная облачность",

    FEW => "слабая облачность",

    FEW => "слабая облачность",

    OVC => "сплошная облачность",

    OVC => "сплошная облачность",

    NSC => "нет существенной облачности",

    NSC => "нет существенной облачности",

    NCD => "безоблачно",

    NCD => "безоблачно",

);

);

my %_trend_types = (

my %_trend_types = (

    BLU => "8 km view",

    BLU => "8 km view",

    WHT => "5 km view",

    WHT => "5 km view",

    GRN => "3.7 km view",

    GRN => "3.7 km view",

    YLO => "1.6 km view",

    YLO => "1.6 km view",

    AMB => "0.8 km view",

    AMB => "0.8 km view",

    RED => "< 0.8 km view",

    RED => "< 0.8 km view",

    BLACK => "airport closed",

    BLACK => "airport closed",

    NOSIG => "No significant change",

    NOSIG => "No significant change",

    TEMPO => "Temporary change",

    TEMPO => "Temporary change",

    NSW => "No significant weather",

    NSW => "No significant weather",

    PROB => "Probability",

    PROB => "Probability",

    BECMG => "Becoming",

    BECMG => "Becoming",

    LAST => "Last",

    LAST => "Last",

);

);

my $_trend_types_pat = join("|", keys(%_trend_types));

my $_trend_types_pat = join("|", keys(%_trend_types));

##

##

## Constructor.

## Constructor.

##

##

sub new

sub new

{

{

    my $this = shift;

    my $this = shift;

    my $class = ref($this) || $this;

    my $class = ref($this) || $this;

    my $self = {};

    my $self = {};

    ##

    ##

    ## UPPERCASE items have documented accssor functions (methods) or

    ## UPPERCASE items have documented accssor functions (methods) or

    ## use AUTOLOAD, while lowercase items are reserved for internal

    ## use AUTOLOAD, while lowercase items are reserved for internal

    ## use.

    ## use.

    ##

    ##

    $self->{VERSION}       = $VERSION;          # version number

    $self->{VERSION}       = $VERSION;          # version number

    $self->{METAR}         = undef;             # the actual, raw METAR

    $self->{METAR}         = undef;             # the actual, raw METAR

    $self->{TYPE}          = undef;             # the type of report

    $self->{TYPE}          = undef;             # the type of report

    $self->{SITE}          = undef;             # site code

    $self->{SITE}          = undef;             # site code

    $self->{DATE}          = undef;             # when it was issued

    $self->{DATE}          = undef;             # when it was issued

    $self->{TIME}          = undef;             # time it was issued

    $self->{TIME}          = undef;             # time it was issued

    $self->{MOD}           = undef;             # modifier (AUTO/COR)

    $self->{MOD}           = undef;             # modifier (AUTO/COR)

    $self->{WIND_DIR_DEG}  = undef;             # wind dir in degrees

    $self->{WIND_DIR_DEG}  = undef;             # wind dir in degrees

    $self->{WIND_DIR_ENG}  = undef;             # wind dir in english (Northwest/Southeast)

    $self->{WIND_DIR_ENG}  = undef;             # wind dir in english (Northwest/Southeast)

    $self->{WIND_DIR_RUS}  = undef;             # wind dir in russian (Северо-западный/Юго-восточный)

    $self->{WIND_DIR_RUS}  = undef;             # wind dir in russian (Северо-западный/Юго-восточный)

    $self->{WIND_DIR_ABB}  = undef;             # wind dir in abbreviated english (NW/SE)

    $self->{WIND_DIR_ABB}  = undef;             # wind dir in abbreviated english (NW/SE)

    $self->{WIND_KTS}      = undef;             # wind speed (knots)

    $self->{WIND_KTS}      = undef;             # wind speed (knots)

    $self->{WIND_GUST_KTS} = undef;             # wind gusts (knots)

    $self->{WIND_GUST_KTS} = undef;             # wind gusts (knots)

    $self->{WIND_MPH}      = undef;             # wind speed (MPH)

    $self->{WIND_MPH}      = undef;             # wind speed (MPH)

    $self->{WIND_GUST_MPH} = undef;             # wind gusts (MPH)

    $self->{WIND_GUST_MPH} = undef;             # wind gusts (MPH)

    $self->{WIND_MS}       = undef;             # wind speed (m/s)

    $self->{WIND_MS}       = undef;             # wind speed (m/s)

    $self->{WIND_GUST_MS}  = undef;             # wind gusts (m/s)

    $self->{WIND_GUST_MS}  = undef;             # wind gusts (m/s)

    $self->{WIND_VAR}      = undef;             # wind variation (text)

    $self->{WIND_VAR}      = undef;             # wind variation (text)

    $self->{WIND_VAR_1}    = undef;             # wind variation (direction 1)

    $self->{WIND_VAR_1}    = undef;             # wind variation (direction 1)

    $self->{WIND_VAR_2}    = undef;             # wind variation (direction 2)

    $self->{WIND_VAR_2}    = undef;             # wind variation (direction 2)

    $self->{WIND_VAR_ENG_1}= undef;             # wind variation (text, direction 1)

    $self->{WIND_VAR_ENG_1}= undef;             # wind variation (text, direction 1)

    $self->{WIND_VAR_ENG_2}= undef;             # wind variation (text, direction 2)

    $self->{WIND_VAR_ENG_2}= undef;             # wind variation (text, direction 2)

    $self->{VISIBILITY}    = undef;             # visibility info

    $self->{VISIBILITY}    = undef;             # visibility info

    $self->{RUNWAY}        = [ ];               # runway vis.

    $self->{RUNWAY}        = [ ];               # runway vis.

    $self->{RH}            = undef;             # relative humidity

    $self->{RH}            = undef;             # relative humidity

    $self->{WEATHER}       = [ ];               # current weather

    $self->{WEATHER}       = [ ];               # current weather

    $self->{WEATHER_LOG}   = [ ];               # weather log

    $self->{WEATHER_LOG}   = [ ];               # weather log

    $self->{SKY}           = [ ];               # current sky (cloudcover)

    $self->{SKY}           = [ ];               # current sky (cloudcover)

    $self->{TEMP_F}        = undef;             # current temp, celsius

    $self->{TEMP_F}        = undef;             # current temp, celsius

    $self->{TEMP_C}        = undef;             # converted to fahrenheit

    $self->{TEMP_C}        = undef;             # converted to fahrenheit

    $self->{TEMP_WC}       = undef;             # current windchill temp, celsius

    $self->{TEMP_WC}       = undef;             # current windchill temp, celsius

    $self->{DEW_F}         = undef;             # dew point, celcius

    $self->{DEW_F}         = undef;             # dew point, celcius

    $self->{DEW_C}         = undef;             # dew point, fahrenheit

    $self->{DEW_C}         = undef;             # dew point, fahrenheit

    $self->{HOURLY_TEMP_F} = undef;             # hourly current temp, celcius

    $self->{HOURLY_TEMP_F} = undef;             # hourly current temp, celcius

    $self->{HOURLY_TEMP_C} = undef;             # hourly converted to fahrenheit

    $self->{HOURLY_TEMP_C} = undef;             # hourly converted to fahrenheit

    $self->{HOURLY_DEW_F}  = undef;             # hourly dew point, celcius

    $self->{HOURLY_DEW_F}  = undef;             # hourly dew point, celcius

    $self->{HOURLY_DEW_C}  = undef;             # hourly dew point, fahrenheit

    $self->{HOURLY_DEW_C}  = undef;             # hourly dew point, fahrenheit

    $self->{HOURLY_PRECIP} = undef;             # hourly precipitation

    $self->{HOURLY_PRECIP} = undef;             # hourly precipitation

    $self->{ALT}           = undef;             # altimeter setting (Hg)

    $self->{ALT}           = undef;             # altimeter setting (Hg)

    $self->{ALT_HP}        = undef;             # altimeter setting (hPa)

    $self->{ALT_HP}        = undef;             # altimeter setting (hPa)

    $self->{ALT_PL}        = undef;             # pressure (Hg)

    $self->{ALT_PL}        = undef;             # pressure (Hg)

    $self->{SLP}           = undef;             # sea level pressure

    $self->{SLP}           = undef;             # sea level pressure

    $self->{REMARKS}       = undef;             # remarks

    $self->{REMARKS}       = undef;             # remarks

    $self->{WEATHER_RAW}   = [ ];               # RAW data for weather

    $self->{WEATHER_RAW}   = [ ];               # RAW data for weather

    $self->{WEATHER_RUS}   = [ ];               # current weather in Russian

    $self->{WEATHER_RUS}   = [ ];               # current weather in Russian

    $self->{SKY_RAW}       = [ ];               # RAW data for sky

    $self->{SKY_RAW}       = [ ];               # RAW data for sky

    $self->{SKY_RUS}       = [ ];               # current sky in Russian

    $self->{SKY_RUS}       = [ ];               # current sky in Russian

    $self->{VISIBILITY_RUS}= undef;             # visibility info    

    $self->{VISIBILITY_RUS}= undef;             # visibility info    

    $self->{tokens}        = [ ];               # the "token" list

    $self->{tokens}        = [ ];               # the "token" list

    $self->{type}          = "METAR";           # the report type (METAR/SPECI)

    $self->{type}          = "METAR";           # the report type (METAR/SPECI)

                                                # default=METAR

                                                # default=METAR

    $self->{site}          = undef;             # the site code (4 chars)

    $self->{site}          = undef;             # the site code (4 chars)

    $self->{date_time}     = undef;             # date/time

    $self->{date_time}     = undef;             # date/time

    $self->{modifier}      = undef;             # the AUTO/COR modifier

    $self->{modifier}      = undef;             # the AUTO/COR modifier

    $self->{wind}          = undef;             # the wind information

    $self->{wind}          = undef;             # the wind information

    $self->{windtype}      = undef;             # the wind speed type (knots/meterpersecond/kilometersperhour)

    $self->{windtype}      = undef;             # the wind speed type (knots/meterpersecond/kilometersperhour)

    $self->{windvar}       = undef;             # the wind variation

    $self->{windvar}       = undef;             # the wind variation

    $self->{visibility}    = undef;             # visibility information

    $self->{visibility}    = undef;             # visibility information

    $self->{runway}        = undef;             # runway visibility

    $self->{runway}        = undef;             # runway visibility

    $self->{weather}       = [ ];               # current weather conditions

    $self->{weather}       = [ ];               # current weather conditions

    $self->{sky}           = [ ];               # sky conditions (cloud cover)

    $self->{sky}           = [ ];               # sky conditions (cloud cover)

    $self->{temp_dew}      = undef;             # temp and dew pt.

    $self->{temp_dew}      = undef;             # temp and dew pt.

    $self->{alt}           = undef;             # altimeter setting

    $self->{alt}           = undef;             # altimeter setting

    $self->{pressure}      = undef;             # pressure (HPa)

    $self->{pressure}      = undef;             # pressure (HPa)

    $self->{slp}           = undef;             # sea level pressure

    $self->{slp}           = undef;             # sea level pressure

    $self->{remarks}       = [ ];               # remarks

    $self->{remarks}       = [ ];               # remarks

    $self->{debug}         = undef;             # enable debug trace

    $self->{debug}         = undef;             # enable debug trace

    bless $self, $class;

    bless $self, $class;

    return $self;

    return $self;

}

}

##

##

## Autoload for access methods to stuff in %fields hash. We should

## Autoload for access methods to stuff in %fields hash. We should

## probably disallow access to the lower-case items as stated above,

## probably disallow access to the lower-case items as stated above,

## but I don't feel like being a Nazi about it. Besides, I haven't

## but I don't feel like being a Nazi about it. Besides, I haven't

## checked to see what that might break.

## checked to see what that might break.

##

##

sub AUTOLOAD

sub AUTOLOAD

{

{

    my $self = shift;

    my $self = shift;

    if (not ref $self)

    if (not ref $self)

    {

    {

        cluck "bad AUTOLOAD for obj [$self]";

        cluck "bad AUTOLOAD for obj [$self]";

    }

    }

    if ($AUTOLOAD =~ /.*::(.*)/)

    if ($AUTOLOAD =~ /.*::(.*)/)

    {

    {

        my $key = $1;

        my $key = $1;

        ## Backward compatible temps...

        ## Backward compatible temps...

        my %compat = (

        my %compat = (

                      F_TEMP    =>  'TEMP_F',

                      F_TEMP    =>  'TEMP_F',

                      C_TEMP    =>  'TEMP_C',

                      C_TEMP    =>  'TEMP_C',

                      F_DEW     =>  'DEW_F',

                      F_DEW     =>  'DEW_F',

                      C_DEW     =>  'DEW_C',

                      C_DEW     =>  'DEW_C',

                     );

                     );

        if ($compat{$key})

        if ($compat{$key})

        {

        {

            $key = $compat{$key};

            $key = $compat{$key};

        }

        }

        ## Check for the items...

        ## Check for the items...

        if (exists $self->{$key})

        if (exists $self->{$key})

        {

        {

            return $self->{$key};

            return $self->{$key};

        }

        }

        else

        else

        {

        {

            return undef;

            return undef;

        }

        }

    }

    }

    else

    else

    {

    {

        warn "strange AUTOLOAD problem!";

        warn "strange AUTOLOAD problem!";

        return undef;

        return undef;

    }

    }

}

}

##

##

## Get current version number.

## Get current version number.

##

##

sub version

sub version

{

{

    my $self = shift;

    my $self = shift;

    print "version() called.\n" if $self->{debug};

    print "version() called.\n" if $self->{debug};

    return $self->{VERSION};

    return $self->{VERSION};

}

}

##

##

## Take a METAR, tokenize, and process it.

## Take a METAR, tokenize, and process it.

##

##

sub metar

sub metar

{

{

    my $self = shift;

    my $self = shift;

    if (@_)

    if (@_)

    {

    {

        $self->{METAR} = shift;

        $self->{METAR} = shift;

        $self->{METAR} =~ s/\n//g;    ## nuke any newlines

        $self->{METAR} =~ s/\n//g;    ## nuke any newlines

        _tokenize($self);

        _tokenize($self);

        _process($self);

        _process($self);

    }

    }

    return $self->{METAR};

    return $self->{METAR};

}

}

##

##

## Break {METAR} into parts. Stuff into @tokens.

## Break {METAR} into parts. Stuff into @tokens.

##

##

sub _tokenize

sub _tokenize

{

{

    my $self = shift;

    my $self = shift;

    my $tok;

    my $tok;

    my @toks;

    my @toks;

    # Split tokens on whitespace.

    # Split tokens on whitespace.

    @toks = split(/\s+/, $self->{METAR});

    @toks = split(/\s+/, $self->{METAR});

    $self->{tokens} = \@toks;

    $self->{tokens} = \@toks;

}

}

## Process @tokens to populate METAR values.

## Process @tokens to populate METAR values.

##

##

## This is a long and involved subroutine. It basically copies the

## This is a long and involved subroutine. It basically copies the

## @tokens array and treats it as a stack, popping off items,

## @tokens array and treats it as a stack, popping off items,

## examining them, and see what they look like.  Based on their

## examining them, and see what they look like.  Based on their

## "apppearance" it takes care populating the proper fields

## "apppearance" it takes care populating the proper fields

## internally.

## internally.

sub _process

sub _process

{

{

    my $self = shift;

    my $self = shift;

    my @toks = @{$self->{tokens}};      # copy tokens array...

    my @toks = @{$self->{tokens}};      # copy tokens array...

    my $tok;

    my $tok;

    ## This is a semi-brute-force way of doing things, but the amount

    ## This is a semi-brute-force way of doing things, but the amount

    ## of data is relatively small, so it shouldn't be a big deal.

    ## of data is relatively small, so it shouldn't be a big deal.

    ##

    ##

    ## Ideally, I'd have it skip checks for items which have been

    ## Ideally, I'd have it skip checks for items which have been

    ## found, but that would make this more "linear" and I'd remove

    ## found, but that would make this more "linear" and I'd remove

    ## the pretty while loop.

    ## the pretty while loop.

        #

        #

        # KH: modified to maintain state to not get lost in remarks and stuff

        # KH: modified to maintain state to not get lost in remarks and stuff

        # and be a lot better at parsing

        # and be a lot better at parsing

        # states

        # states

        my $expect_type = 0;

        my $expect_type = 0;

        my $expect_site = 1;

        my $expect_site = 1;

        my $expect_datetime = 2;

        my $expect_datetime = 2;

        my $expect_modifier = 3;

        my $expect_modifier = 3;

        my $expect_wind = 4;

        my $expect_wind = 4;

        my $expect_visibility = 5;

        my $expect_visibility = 5;

        my $expect_runwayvisual = 6;

        my $expect_runwayvisual = 6;

        my $expect_presentweather = 7;

        my $expect_presentweather = 7;

        my $expect_clouds = 8;

        my $expect_clouds = 8;

        my $expect_temperature = 9;

        my $expect_temperature = 9;

        my $expect_pressure = 10;

        my $expect_pressure = 10;

        my $expect_recentweather = 11;

        my $expect_recentweather = 11;

        my $expect_remarks = 12;

        my $expect_remarks = 12;

        my $expect_usremarks = 13;

        my $expect_usremarks = 13;

        my $parsestate = $expect_type;

        my $parsestate = $expect_type;

        # windtypes

        # windtypes

        my $wt_knots = 1;

        my $wt_knots = 1;

        my $wt_mps = 2;

        my $wt_mps = 2;

        my $wt_kph = 3;

        my $wt_kph = 3;

    ## Assume standard report by default

    ## Assume standard report by default

    $self->{type} = "METAR";

    $self->{type} = "METAR";

    $self->{TYPE} = "Routine Weather Report";

    $self->{TYPE} = "Routine Weather Report";

    while (defined($tok = shift(@toks))) ## as long as there are tokens

    while (defined($tok = shift(@toks))) ## as long as there are tokens

    {

    {

        print "trying to match [$tok] state is $parsestate\n" if $self->{debug};

        print "trying to match [$tok] state is $parsestate\n" if $self->{debug};

        ##

        ##

        ## is it a report type?

        ## is it a report type?

        ##

        ##

        if (($parsestate == $expect_type) and ($tok =~ /(METAR|SPECI)/i))

        if (($parsestate == $expect_type) and ($tok =~ /(METAR|SPECI)/i))

        {

        {

            $self->{type} = $tok;

            $self->{type} = $tok;

            if ($self->{type} eq "METAR")

            if ($self->{type} eq "METAR")

            {

            {

                $self->{TYPE} = "Routine Weather Report";

                $self->{TYPE} = "Routine Weather Report";

            }

            }

            elsif ($self->{type} eq "SPECI")

            elsif ($self->{type} eq "SPECI")

            {

            {

                $self->{TYPE} = "Special Weather Report";

                $self->{TYPE} = "Special Weather Report";

            }

            }

            print "[$tok] is a report type.\n" if $self->{debug};

            print "[$tok] is a report type.\n" if $self->{debug};

                        $parsestate = $expect_site;

                        $parsestate = $expect_site;

            next;

            next;

        }

        }

        ##

        ##

        ## is is a site ID?

        ## is is a site ID?

        ##

        ##

        elsif (($parsestate <= $expect_site) and ($tok =~ /([A-Z]{4}|K[A-Z0-9]{3})/))

        elsif (($parsestate <= $expect_site) and ($tok =~ /([A-Z]{4}|K[A-Z0-9]{3})/))

        {

        {

            $self->{site} = $tok;

            $self->{site} = $tok;

            print "[$tok] is a site ID.\n" if $self->{debug};

            print "[$tok] is a site ID.\n" if $self->{debug};

                        $parsestate = $expect_datetime;