どんな検索サービスにも言えることですが、と書きました。
検索結果のRSSが提供されているということは、
そのまま検索APIとして使えるということを意味しています。
#!/usr/bin/perl -T use strict; use warnings; use Encode; use CGI; use LWP::Simple; use XML::Simple; use HTML::Template; binmode STDOUT, "utf8"; my $q = new CGI; my $key = $q->param('key') || ""; my $num = $q->param('num') || ""; my $page = $q->param('page') || ""; Encode::from_to($key, "utf8", "euc-jp"); $key =~ s/([^0-9A-Za-z_])/'%'.unpack('H2',$1)/ge; $key =~ s/ /+/g; my $url = "http://blog-search.yahoo.co.jp/rss?p=$key&n=$num&b=$page"; my $r = get_bresults($url); my $template = join("", <DATA>); my $t = HTML::Template->new(scalarref => \$template, associate => $q, die_on_bad_params => 0); $t->param(results => $r); $t->param(key => decode('UTF-8', $q->param('key'))); print $q->header(-charset => 'UTF-8'), $t->output(); sub get_bresults { my ($url) = @_; my $rss = get($url); my $xmlsimple = XML::Simple->new(); my $xml = $xmlsimple->XMLin($rss); if (ref($xml->{channel}->{item}) eq "ARRAY") { return $xml->{channel}->{item}; } else { return [$xml->{channel}->{item}]; } return []; } __DATA__ <html lang="ja"><head><title>Yahoo! Blog Search (RSS)</title></head><body> <h1>Yahoo! Blog Search (RSS)</h1> <form method="get"> <input type="text" name="key" value="<TMPL_VAR name=key>" size="20"> num:<input type="text" name="num" value="<TMPL_VAR name=num>" size="3"> page:<input type="text" name="page" value="<TMPL_VAR name=page>" size="2"> <input type="submit" value="search"> </form> <h2>Search Results</h2> <TMPL_LOOP name=results> <h3><a href="<TMPL_VAR name=link>"><TMPL_VAR name=title></a></h3> <p><TMPL_VAR name=description></p> </TMPL_LOOP> </body></html>
を以下のように変更します。my $url = "http://blog-search.yahoo.co.jp/rss?p=$key&n=$num&b=$page";
my $url = "http://blog-search.yahoo.co.jp/rss?" ."p=$key+site:http://d.hatena.ne.jp/&n=$num&b=$page";
┌─┐┌──┐ │ ││ │ │ │└──┘ └─┘
┌──┐ │ │← ├─┬┘ └─┘
┌──┐ ├─┐│ └─┴┘ ↑
┌─┐ ┌──┐ ├─┤→│ │ └─┘ └──┘
↓ ┌─┐ └─┘