Редакция 15 | Весь файл | Учитывать пробелы | Содержимое файла | Авторство | Последнее изменение | Открыть журнал | RSS
Редакция 15 | Редакция 16 | ||
---|---|---|---|
Строка 884... | Строка 884... | ||
884 | 884 | ||
885 | elsif (($parsestate >= $expect_modifier) and ($parsestate < $expect_temperature) and ( $tok eq 'CAVOK' )) |
885 | elsif (($parsestate >= $expect_modifier) and ($parsestate < $expect_temperature) and ( $tok eq 'CAVOK' )) |
886 | {
|
886 | {
|
887 | push(@{$self->{sky}},$tok); |
887 | push(@{$self->{sky}},$tok); |
888 | push(@{$self->{SKY}}, "Sky Clear"); |
888 | push(@{$self->{SKY}}, "Sky Clear"); |
889 | push(@{$self->{SKY_RUS}}, "Ясно"); |
889 | push(@{$self->{SKY_RUS}}, "ясно"); |
890 | push(@{$self->{SKY_RAW}},$tok); |
890 | push(@{$self->{SKY_RAW}},$tok); |
891 | push(@{$self->{weather}},$tok); |
891 | push(@{$self->{weather}},$tok); |
892 | push(@{$self->{WEATHER}},"No significant weather"); |
892 | push(@{$self->{WEATHER}},"No significant weather"); |
- | 893 | push(@{$self->{WEATHER_RUS}},"без существенных изменений"); |
|
893 | $self->{visibility} = '9999'; |
894 | $self->{visibility} = '9999'; |
894 | $parsestate = $expect_temperature; |
895 | $parsestate = $expect_temperature; |
895 | next; |
896 | next; |
896 | }
|
897 | }
|
897 | 898 | ||
Строка 901... | Строка 902... | ||
901 | 902 | ||
902 | elsif (($parsestate >= $expect_modifier) and ($parsestate < $expect_temperature) and ( $tok =~ /SKC|CLR/ )) |
903 | elsif (($parsestate >= $expect_modifier) and ($parsestate < $expect_temperature) and ( $tok =~ /SKC|CLR/ )) |
903 | {
|
904 | {
|
904 | push(@{$self->{sky}},$tok); |
905 | push(@{$self->{sky}},$tok); |
905 | push(@{$self->{SKY}}, "Sky Clear"); |
906 | push(@{$self->{SKY}}, "Sky Clear"); |
906 | push(@{$self->{SKY_RUS}}, "Ясно"); |
907 | push(@{$self->{SKY_RUS}}, "ясно"); |
907 | push(@{$self->{SKY_RAW}},$tok); |
908 | push(@{$self->{SKY_RAW}},$tok); |
908 | print "[$tok] is a sky condition.\n" if $self->{debug}; |
909 | print "[$tok] is a sky condition.\n" if $self->{debug}; |
909 | $parsestate = $expect_clouds; |
910 | $parsestate = $expect_clouds; |
910 | next; |
911 | next; |
911 | }
|
912 | }
|
Строка 1892... | Строка 1893... | ||
1892 | 1893 | ||
1893 | =head1 NOTES
|
1894 | =head1 NOTES
|
1894 | 1895 | ||
1895 | Test suite is small and incomplete. Needs work yet.
|
1896 | Test suite is small and incomplete. Needs work yet.
|
1896 | 1897 | ||
1897 | Older versions of this module were installed as "METAR" instaed of
|
1898 | Older versions of original module were installed as "METAR" instaed of
|
1898 | "Geo::METAR"
|
1899 | "Geo::METAR"
|
1899 | 1900 | ||
1900 | =head1 BUGS
|
1901 | =head1 BUGS
|
1901 | 1902 | ||
1902 | The Geo::ModMETAR is only initialized once, which means you'll get left-over
|
1903 | The Geo::ModMETAR is only initialized once, which means you'll get left-over
|