ぐるナビ

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use YAML;
use WebService::Simple;

my $key = 'hoge';
my $gnavi = WebService::Simple->new(
    base_url => 'http://api.gnavi.co.jp/ver1/RestSearchAPI/',
    param => { keyid => $key },
);
my $res = $gnavi->get({freeword => '焼うどん'});
warn Dump $res->parse_response;

HotPepper

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use YAML;
use WebService::Simple;

my $key = 'hogehgoe';

my $hp = WebService::Simple->new(
    base_url => 'http://webservice.recruit.co.jp/hotpepper/',
    param => {key => $key},
);

my $res = $hp->get('gourmet/v1/', {keyword => '焼うどん'});
warn Dump $res->parse_response;

食べログ

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use YAML;
use WebService::Simple;

my $key = 'hoge';

my $service = WebService::Simple->new(
    base_url => 'http://api.tabelog.com/Ver2/RestaurantSearch/',
    param => {Key => $key}
);

my $res = $service->get({Station => '駒場東大前'});
warn Dump $res->parse_response;

ドコイク

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use YAML;
use WebService::Simple;

my $key = 'hoge';

my $service = WebService::Simple->new(
    base_url => 'http://api.doko.jp/v1/',
    param => {key => $key},
);

my $res = $service->get('searchPOI.do', {keyword => '焼うどん'});

warn Dump $res->parse_response;

食べログは駅名でしか検索できへんのかな。

ちうことでこいつらをgearmanで並列で投げて結果を受け取ってみるか。ということはgearmanサーバーも準備せんといかんのか。めんどくなってきた。