2005年12月02日

12/06追記:YahooJ::Search 0.02 Releasedモジュールupdateしました。

Yahoo!デベロッパーネットワークがローンチしましたね。
SDKにperlのコードがあるですが、再利用しにくいのでモジュール作りました。
Y!Jの中の人がCPANに上げるだろうから、今回は野良モジュールです。
http://tech.yappo.jp/download/YahooJ-Search-byYappo.tar.gz

使い方は

use strict;
use lib './lib';

use Jcode;
use YahooJ::Search;

my $result = YahooJ::Search->Query
(
METHOD => 'Web',
appid => 'appid',
query => 'query'
);

if ($result->error_msg) {
die $result->error_msg;
}

print "totalResultsAvailable: " . $result->totalResultsAvailable . "\n";
print "totalResultsReturned : " . $result->totalResultsReturned . "\n";
print "firstResultPosition : " . $result->firstResultPosition . "\n";

foreach ($result->Results) {
print "\n";
$_->{Title} and print 'Title: ' . Jcode->new($_->{Title}, 'utf8')->euc . "\n";
$_->{Url} and print 'Url: ' . Jcode->new($_->{Url}, 'utf8')->euc . "\n";
$_->{Summary} and print 'Summary: ' . Jcode->new($_->{Summary}, 'utf8')->euc . "\n";
}

こんな感じで。

YahooJ::Search->QueryのMETHODオプションは、Web/Image/Videoが指定できます。
それ以外のオプションはAPIのリクエストパラメータを渡してあげてください。
レスポンスパラメータに関してはは本家のドキュメントを見てください。


example.plは適当です。
一応モジュールはそれぞれ動作確認をとてtますが、1時間くらいでやっつけたのでバグあるかもです。

さて、何作ろう。

Posted by Yappo at 2005年12月02日 00:10 | TrackBack | Perl
Comments
Post a comment









Remember personal info?






コメントを投稿する前に↓の場所にnospamと入力してください。