Редакция 8 | Редакция 10 | К новейшей редакции | Весь файл | Не учитывать пробелы | Содержимое файла | Авторство | Последнее изменение | Открыть журнал | RSS
| Редакция 8 | Редакция 9 | ||
|---|---|---|---|
| Строка 406... | Строка 406... | ||
| 406 | $self->{HOURLY_DEW_F} = undef; # hourly dew point, celcius |
406 | $self->{HOURLY_DEW_F} = undef; # hourly dew point, celcius |
| 407 | $self->{HOURLY_DEW_C} = undef; # hourly dew point, fahrenheit |
407 | $self->{HOURLY_DEW_C} = undef; # hourly dew point, fahrenheit |
| 408 | $self->{HOURLY_PRECIP} = undef; # hourly precipitation |
408 | $self->{HOURLY_PRECIP} = undef; # hourly precipitation |
| 409 | $self->{ALT} = undef; # altimeter setting (Hg) |
409 | $self->{ALT} = undef; # altimeter setting (Hg) |
| 410 | $self->{ALT_HP} = undef; # altimeter setting (hPa) |
410 | $self->{ALT_HP} = undef; # altimeter setting (hPa) |
| - | 411 | $self->{ALT_PL} = undef; # pressure (Hg) |
|
| 411 | $self->{SLP} = undef; # sea level pressure |
412 | $self->{SLP} = undef; # sea level pressure |
| 412 | $self->{REMARKS} = undef; # remarks |
413 | $self->{REMARKS} = undef; # remarks |
| 413 | $self->{WEATHER_RAW} = [ ]; # RAW data for weather |
414 | $self->{WEATHER_RAW} = [ ]; # RAW data for weather |
| 414 | $self->{WEATHER_RUS} = [ ]; # current weather in Russian |
415 | $self->{WEATHER_RUS} = [ ]; # current weather in Russian |
| 415 | $self->{SKY_RAW} = [ ]; # RAW data for sky |
416 | $self->{SKY_RAW} = [ ]; # RAW data for sky |
| Строка 1158... | Строка 1159... | ||
| 1158 | 1159 | ||
| 1159 | print "[$tok] is a hourly temp and dewpoint.\n" if $self->{debug}; |
1160 | print "[$tok] is a hourly temp and dewpoint.\n" if $self->{debug}; |
| 1160 | next; |
1161 | next; |
| 1161 | }
|
1162 | }
|
| 1162 | 1163 | ||
| - | 1164 | elsif (($parsestate == $expect_usremarks) and ($tok =~ /^QFE(\d\d\d)/i)) |
|
| - | 1165 | {
|
|
| - | 1166 | $self->{ALT_PL} = $1; |
|
| - | 1167 | ||
| - | 1168 | print "[$tok] is a pressure\n" if $self->{debug}; |
|
| - | 1169 | next; |
|
| - | 1170 | }
|
|
| - | 1171 | ||
| 1163 | ##
|
1172 | ##
|
| 1164 | ## unknown, not in remarks yet
|
1173 | ## unknown, not in remarks yet
|
| 1165 | ##
|
1174 | ##
|
| 1166 | 1175 | ||
| 1167 | elsif ($parsestate < $expect_remarks) |
1176 | elsif ($parsestate < $expect_remarks) |