#!/usr/local/bin/perl
use LWP::UserAgent;
my $ua=LWP::UserAgent->new();
$data = $ua->get("http://newsrss.bbc.co.uk/weather/forecast/58/ObservationsRSS.xml")->content;
$data=~/Temperature: (.*?)&/;
$temp=$1;
$data=~/(\d{2}):(\d{2}):(\d{2}) \+0\d00<\/pubDate>/;
$h=$1;
$m=$2;
$time="$h:$m";
system("echo \"weather_update(\\\"$temp\\\",\\\"$time\\\")\"|awesome-client");
На идеальность кода не претендую, работает пока без ошибок.
UPD: Что-то METAR стал временами плохо работать, переписал на bbc-weather, показывает тоже довольно точно. Сейчас прописан RSS для Москвы, как прописать для своего города надеюсь поймете.
Комментариев нет:
Отправить комментарий