Untitled

# Функция weather_comm: выполняет запрос прогноза погоды у Google.
# Переменная $city: содержит название города для запроса.
# Возвращаемое значение: погода на текущий момент и максимальная температура на завтра.
sub weather_comm {
        my ($msg, $city) = @_;
        $city = $DEFAULT_CITY unless $city;
    my $w = new Weather::Google( $city, {language => 'ru'} );
    my @wt = $w->current qw( temp_c humidity condition );
    my @wh = $w->tomorrow qw(high condition);
    my $weather = "Сейчас в $city за окном:\n".
    "Температура: $wt[0] °C\n$wt[1]\n$wt[2]\n\nЗавтра:\nТемпература: $wh[0] °C\n$wh[1]";
        send_message($msg, $weather);
}