nablog

今更ですがlivedoorが提供しているお天気サイトweather hacksをPerlで解析表示してみた。LWP::UserAgentを使ってRESTをとってきてXML::Simpleでパース。携帯のお気に入りに登録しとくと意外と便利かも。
神戸のお天気「今日と明日と明後日」

LWP::SimpleとXML::RSSさえCPANでインストールすれば以下のような簡単なスクリプトで取得できます。
サンプルはLastfmから最近聞いたトラックを表示させたものです。
Recently Played Tracks

#!/usr/bin/perl -w

use LWP::Simple 'get';
use XML::RSS;

$url = 'http://ws.audioscrobbler.com/1.0/user/dotsmade/recenttracks.rss';

# LWP::SimpleのgetメソッドでRDFファイルを読み込み、
$document = LWP::Simple::get($url);

# RSSオブジェクトのリファレンスを取得
my $rss = XML::RSS->new;
$rss->parse($document);

#出力
print "Content-type: text/html\n\n";

foreach my $item (@{$rss->{items}}){
  print $item->{'title'} . "<br />\n";
}