Редакция 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
|