en de fr es ja it pt

12 апреля 2010 г.

Текущая температура за окном

Давно хотел сделать так, чтобы на панельку моего awesome выводилась текущая температура на улице. Далее скрипт на Perl'e, про привязку его к awesome писать сейчас не буду (если кому-то интересно и не получается прикрутить самому - отпишите, расскажу что делать):


#!/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 для Москвы, как прописать для своего города надеюсь поймете.

Комментариев нет:

Отправить комментарий