Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

How to make Geo::Coder::Google run even if input location doesn't exist

by M15U (Acolyte)
on Mar 01, 2013 at 07:58 UTC ( #1021176=perlquestion: print w/ replies, xml ) Need Help??
M15U has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks, I have a question for you. I'm trying to use Geo::Coder::Google to get a list of coordinates from an array of locations. My problem is that the array of locations is generated by an another script which sometimes puts in it some strange locations which can not be found in google maps, i.e. "CorseMétéo".

This generates the following error message : "Google Maps API returned error: 500 Can't connect to (Bad hostname) at line 24.".

My code looks like this:

#!/usr/bin/perl -w use strict; use locale; use warnings; #use diagnostics; use utf8; binmode(STDIN, "encoding(utf8)"); binmode(STDOUT, "encoding(utf8)"); binmode(STDERR, "encoding(utf8)"); use Geo::Coder::Google; my @place = ('Seattle', 'France', 'CorseMétéo', 'NewDelhi'); my ($long, $lat); foreach my $place(@place){ my $geocoder = Geo::Coder::Google->new(apikey => '{MyAPIkeyHere}') +; my $response; until (defined $response){ $response = $geocoder->geocode(location => $place); } ($long, $lat) = @{ $response->{Point}{coordinates} }; print "$long\n"; print "$lat\n"; }

It is true that Geo::Coder::Google is design to run on streed adress. However it seems to work fine on any other location, if it exist. I've try using the "eval" or "$@" error cheking on the the module object "$geocoder->geocode(location => $place)", but it runs in conflict with "@{ $response->{Point}{coordinates}"giving me the following error message : "Can't use an undefined value as an ARRAY reference at line 31.".

Hope I was clear enough in problem explanation

Thank you Monks !!!

Comment on How to make Geo::Coder::Google run even if input location doesn't exist
Download Code
Re: How to make Geo::Coder::Google run even if input location doesn't exist
by Corion (Pope) on Mar 01, 2013 at 08:04 UTC

    Maybe you could think about what happens when the eval traps the error. What should the value of $response be if there was an error?

      $response is a hash reference in this case, and when I it encounters an unknown location like "CorseMétéo", it gives the following error message : "Use of uninitialized value $response in concatenation (.) or string at line 25."

      I'm pretty new to perl so I'm not good at error managment

        Maybe $response is something else in the case of error?

        I believe that eval shows the use of the $@ variable to detect whether an error happened within the block. Maybe you can use that to detect whether there was an error.

        Alternatively, consider checking the value of $response - if it is not a true value, it can't be a hash reference:

        ... if( !$response ) { warn "Uhoh - we didn't get a response."; };

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1021176]
Approved by Ratazong
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2014-07-30 03:51 GMT
Find Nodes?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:

    Results (229 votes), past polls