パラメータの results=1 がポイントです(ref. [2009-02-26-1])。#!/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);