geocodingã—ã¦ã¿ã‚‹#!/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://maps.google.com/maps/', param => { key => $key, output => 'xml', }, ); my $res = $service->get('geo', {q => 'æ±äº¬éƒ½åƒä»£ç”°åŒºåƒä»£ç”°1-1'})->parse_response; warn Dump $res; ↓ã“ã†ãªã£ãŸã€‚ - Response: Placemark: AddressDetails: Accuracy: 8 Country: Administra
{{#tags}}- {{label}}
{{/tags}}