日記
Google検索結果をRSS化する (13:51)Edit

Google Web APIsを使って検索した結果をRSSに変換するツールってあったら便利かなーとふと思ったりしたけれども、別に大して便利でもないかな。RSSリーダーなんかで特定のキーワードに関する検索状況を定期チェックしたりする手助けくらいにはなる程度か。ありもののライブラリを組み合わせると5分くらいでできそうな気がする。

#!/usr/bin/perl
use CGI;
use Net::Google;
use XML::RSS;
my $QUERY = '検索キーワード';
my $GOOGLE_LICENSE_KEY = 'あなたのGOOGLE_LICENSE_KEY';
my $SEARCH_RESULT_COUNT = 10;
my $google = Net::Google->new(key => $GOOGLE_LICENSE_KEY);
my $search = $google->search();
$search->max_results($SEARCH_RESULT_COUNT);
my $query = $search->query( $QUERY );
my $rss = new XML::RSS (version => '1.0');
$rss->channel(
title => "Google Search Result: ".CGI::escapeHTML($QUERY),
link => "http://www.google.com/search?q=".CGI::escape($QUERY),
description  => "search by Google : ".CGI::escapeHTML($QUERY)
);
foreach my $result(@{$search->results()}) {
$rss->add_item(
title => $result->title(),
link => $result->URL(),
descrption => $result->summary(),
);
}
print $rss->as_string;

できたかも。

Published At2004-06-11 00:00Updated At2004-06-11 00:00