YappoLogs

YahooJ::Search - Yahoo!デベロッパーネットワークAPIを叩くモジュールを作った

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は適当です。
一応モジュールはそれぞれ動作確認をとてｔますが、1時間くらいでやっつけたのでバグあるかもです。

さて、何作ろう。