#!/usr/bin/perl
use LWP::Simple;
use XML::Simple;
@month = qw/месяц января февраля марта апреля мая июня июля августа сентября октября ноября декаб ря/;
@tod = qw/НОЧЬ УТРО ДЕНЬ ВЕЧЕР/;
@cloud = qw/ясно малооблачно облачно пасмурно дождь ливень снег снег гроза N\/A -/;
@direct = qw/С СВ В ЮВ Ю ЮЗ З СЗ/;
#for(;
{
$weatherxml=get("
http://informer.gismeteo.ru/xml/27612_1.xml") || die "xmlошибка\n";
$weather=XMLin($weatherxml);
$strall = "ПОГОДА Москва\n";
@time = localtime();
foreach (@{$weather->{REPORT}{TOWN}{FORECAST}})
{
if ($_->{day} == $time[3]) {$userdate = "Сегодня";} else {$userdate = "Завтра";}
$str="$userdate [$tod[$_->{tod}]]\n
Температура: $value$_->{TEMPERATURE}{min}..$_->{TEMPERATURE}{max}°C\n
Осадки: $value$cloud[$_->{PHENOMENA} {cloudiness}],$cloud[$_->{PHENOMENA}{precipitation}]\n
Ветер: $value$direct[$_->{WIND}{direction}] [$_->{WIND}{min}-$_->{WIND}{max} м/c]\n";
$strall .= $str;
}
print $strall;
}