グルメで有名な僕なので

しゃぶしゃぶ食べたい！

店調べる

#!/usr/bin/perl

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

our $version = 'v1.0';
my $key ='your_api_key'; #http://gourmet.livedoor.com/api/ から無料取得
my $command = 'restaurant/';

my $url = sprintf( 'http://api.gourmet.livedoor.com/%s/' , $version );
my $web = WebService::Simple->new( base_url => $url ,  param    => { api_key => $key }  );
my $res = $web->get( $command ,  { name => 'しゃぶしゃぶ' , address => '渋谷' }  );

my $list = $res->parse_response->{restaurant};

for my $name ( keys %$list ) {
    my $item = sprintf( qq|<li><a href="%s">%s</a> - %s</li>\n| , $list->{$name}{permalink} , $name , $list->{$name}{address} );
    $item = Encode::encode('utf-8', $item );
    print $item;
}

__END__

結果

<li><a href="http://gourmet.livedoor.com/restaurant/343855/">焼肉・しゃぶしゃぶ　ジャンジャン</a> - 渋##区道玄坂2-25-15 福田ビルB1F</li>
<li><a href="http://gourmet.livedoor.com/restaurant/19408/">しゃぶしゃぶ温野菜</a> - 渋谷区幡ケ谷２-９-２０ 第二DNビル2F</li>
<li><a href="http://gourmet.livedoor.com/restaurant/342511/">しゃぶしゃぶ　『但馬屋』</a> - 渋谷区宇田##町12-9 ジュール渋谷 6F</li>
<li><a href="http://gourmet.livedoor.com/restaurant/343717/">黒豚しゃぶしゃぶくろ黒亭</a> - 渋谷区幡ケ##2‐48‐5 </li>
<li><a href="http://gourmet.livedoor.com/restaurant/326077/">ジンギスカン・しゃぶしゃぶ専門店　もんごろーや</a> - 渋谷区渋谷1-24-2 朱ビル4F</li>
<li><a href="http://gourmet.livedoor.com/restaurant/385918/">小鍋しゃぶしゃぶ専門店　〜鍋選人〜　</a> - 渋谷区宇田川町23-5 ハイマンテン渋谷ビル 6F</li>
<li><a href="http://gourmet.livedoor.com/restaurant/343464/">京やさいしゃぶしゃぶ’</a> - 渋谷区代々木1-58-7 ヴェラハイツ代々木マンション104</li>

参照