#!/usr/local/bin/perl -T use strict; use warnings; use Encode; use CGI; use LWP::Simple; use XML::Simple; use HTML::Template; use URI::Escape; use utf8; binmode STDOUT, ":utf8"; my $q = new CGI; my $key = $q->param('key') || ""; my $sr_ref = yapi({key => $key}); my @rs = (); foreach my $r (@$sr_ref) { push @rs, { Title => $r->{Title}, Address => $r->{Address}, Lat => $r->{DatumTky97}->{Lat}, Lon => $r->{DatumTky97}->{Lon}, Id => scalar(@rs), }; } my $template = join("", ); my $t = HTML::Template->new(scalarref => \$template, die_on_bad_params => 0); $t->param(key => decode('utf-8', $key)); $t->param(results => \@rs); print $q->header(-charset => 'UTF-8'), $t->output(); sub yapi { my ($args_ref) = @_; my $key = $args_ref->{key}; return [] unless $key; my $ec = URI::Escape::uri_escape($key); # my $url = "http://api.map.yahoo.co.jp/LocalSearchService/V1/LocalSearch?" my $url = "https://map.yahooapis.jp/search/local/V1/localSearch?" ."appid=THISISAPEN&query=$ec"; my $response = get($url); print $response; my $xmlsimple = XML::Simple->new(ForceArray => [ 'Item' ]); my $xml = $xmlsimple->XMLin($response); return $xml->{Item}; } __DATA__ Y!API Search Maps Demo

Y!API Search Maps Demo


()
Yahoo!デベロッパーネットワーク - Yahoo!地図 - JavaScript版地図API Version 2
Yahoo!デベロッパーネットワーク - Yahoo!地図 - ローカルサーチAPI