使用perl和Google的Geocode API獲取地址的經度和緯度

Question

在Perl中，如何從任意地址獲取緯度和經度？使用外部API是可以的。

Answer 1

這是一個快速perl函數來獲取任意地址的經度和緯度。它使用CPAN和Google的Geocode API中的LWP :: Simple和JSON。如果你想要完整的數據，你可以做json或xml，這是一個使用的json，只是抓取並返回lat和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

沒有爲谷歌地理編碼API的封裝模塊，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}; 

此代碼打印：

\ { 
    lat 34.101545, 
    lng -118.3386871 
} 

它一般最好使用一種現成的，現成的CPAN因爲它是由CPAN Testers服務提供支持的，所以，如果API斷裂，很容易發現並報告。

Answer 3

您可以使用Geo :: Coder :: Many來比較不同的服務以找到認爲它是最準確的服務。我在美國的農村和城市地址中獲得了好運。

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 }); 
}