
#!/usr/bin/perl -T
use strict;
use warnings;
use LWP::Simple;
use URI::Escape;
use CGI;
use Encode;
use utf8;
binmode STDOUT, ":utf8";
my $q = new CGI;
my $query = $q->param('q') || "";
my $callback = $q->param('cb') || "f";
my $ueq = URI::Escape::uri_escape($query);
my $url = "http://search.yahooapis.jp/WebSearchService/V1/webSearch"
."?appid=THISISAPEN&query=$ueq&results=1";
my $res = get($url);
my $num = ($res =~ /totalResultsAvailable="(\d+)"/) ? $1 : 0;
print "Content-Type: text/javascript; charset=UTF-8\n\n";
my $qe = CGI::escapeHTML(decode("utf8", $query));
print qq($callback({"q":"$qe", "n":$num})\n);
パラメータの results=1 がポイントです(ref. [2009-02-26-1])。

