前回のエントリー(XML::Feedをインストールメモ(libxml2関連) | thinking now…)で、XML::Feedがインストールできたので、今回はそれを使ってRSSをパースしてみます。

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Furl;
use XML::Feed;
use Data::Dumper;

my $keyword = 'hogehoge';

my $furl = Furl->new();
my $url = 'http://www.google.co.jp/search?lr=lang_ja&hl=ja&tbm=blg&output=rss&q=' . $keyword;

my $res = $furl->get( $url );
my $data = XML::Feed->parse( \$res->content );

print Dumper $data;

何のエラーチェックもしてませんが・・。
ま、メモ程度に。

ちなみにRSSのURLは、Googleでブログ検索した時の下のページャー付近に表示されている「RSS」のリンク先です。