Obtenir la latitude et la longitude d'une adresse en utilisant perl et Google Geocode API

Question

En Perl comment obtenir le lat et long d'une adresse arbitraire? Il est OK d'utiliser une API externe.

Answer 1

Voici une fonction perl rapide pour obtenir la latitude et la longitude d'une adresse arbitraire. Il utilise LWP :: Simple et JSON du CPAN et l'API Geocode de Google. Vous pouvez faire json ou xml si vous voulez les données complètes, celui-ci utilise json et attrape et retourne le lat et le long.

use strict; 
use LWP::Simple; # from CPAN 
use JSON qw(decode_json); # from CPAN 

sub getLatLong($){ 
    my ($address) = @_; 

    my $format = "json"; #can also to 'xml' 

    my $geocodeapi = "https://maps.googleapis.com/maps/api/geocode/"; 

    my $url = $geocodeapi . $format . "?sensor=false&address=" . $address; 

    my $json = get($url); 

    my $d_json = decode_json($json); 

    my $lat = $d_json->{results}->[0]->{geometry}->{location}->{lat}; 
    my $lng = $d_json->{results}->[0]->{geometry}->{location}->{lng}; 

    return ($lat, $lng); 
} 

Answer 2

Il y a un module wrapper pour l'API Google géocodage, Geo::Coder::Google:

#!/usr/bin/env perl 
use strict; 
use utf8; 
use warnings qw(all); 

use Data::Printer; 
use Geo::Coder::Google; 

my $geocoder = Geo::Coder::Google->new(apiver => 3); 
my $location = $geocoder->geocode(location => 'Hollywood and Highland, Los Angeles, CA'); 

p $location->{geometry}{location}; 

Ce code imprime:

\ { 
    lat 34.101545, 
    lng -118.3386871 
} 

Il est généralement préférable d'utiliser un impromptu CPAN Ce module est supporté par le service CPAN Testers, donc, si l'API se casse, il sera facile de repérer et de signaler.

Answer 3

Vous pouvez utiliser Geo :: Coder :: Many pour comparer différents services pour trouver celui qui pense que c'est le plus précis. J'ai eu de la chance avec ça (US) dans un mélange d'adresses rurales et urbaines.

use Geo::Coder::Bing; 
use Geo::Coder::Googlev3; 
use Geo::Coder::Mapquest; 
use Geo::Coder::OSM; 
use Geo::Coder::Many; 
use Geo::Coder::Many::Util qw(country_filter); 

### Geo::Coder::Many object 
my $geocoder_many = Geo::Coder::Many->new(); 

$geocoder_many->add_geocoder({ geocoder => Geo::Coder::Googlev3->new }); 
$geocoder_many->add_geocoder({ geocoder => Geo::Coder::Bing->new(key => 'GET ONE')}); 
$geocoder_many->add_geocoder({ geocoder => Geo::Coder::Mapquest->new(apikey => 'GET ONE')}); 
$geocoder_many->add_geocoder({ geocoder => Geo::Coder::OSM->new(sources => 'mapquest')}); 

$geocoder_many->set_filter_callback(country_filter('United States')); 
$geocoder_many->set_picker_callback('max_precision'); 

for my $location (@locations) { 
    my $result = $geocoder_many->geocode({ location => $location }); 
}