Редакция 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 | }
|
Строка 1437... | Строка 1438... | ||
1437 | ##
|
1438 | ##
|
1438 | ## Calculate windchill temperature
|
1439 | ## Calculate windchill temperature
|
1439 | ##
|
1440 | ##
|
1440 | 1441 | ||
1441 | {
|
1442 | {
|
1442 | my $windspeed = $self->{WIND_MS}*3.6; |
1443 | my $windspeed = $self->{WIND_MS}*3.6; |
1443 | $self->{TEMP_WC} = 13.12 + 0.6215*$self->{TEMP_C} - 11.37*($windspeed**0.16) + 0.3965*$self->{TEMP_C}*($windspeed**0.16); |
1444 | $self->{TEMP_WC} = 13.12 + 0.6215*$self->{TEMP_C} - 11.37*($windspeed**0.16) + 0.3965*$self->{TEMP_C}*($windspeed**0.16); |
1444 | }
|
1445 | }
|
1445 | 1446 | ||
1446 | ##
|
1447 | ##
|
1447 | ## Visibility.
|
1448 | ## Visibility.
|
1448 | ##
|
1449 | ##
|
Строка 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
|