しゃぶしゃぶ食べたい! 店調べる #!/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(