どんな検索サービスにも言えることですが、と書きました。
検索結果の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";
┌─┐┌──┐ │ ││ │ │ │└──┘ └─┘
┌──┐ │ │← ├─┬┘ └─┘
┌──┐ ├─┐│ └─┴┘ ↑
┌─┐ ┌──┐ ├─┤→│ │ └─┘ └──┘
↓ ┌─┐ └─┘















