in reply to Re^5: How to make Geo::Coder::Google run even if input location doesn't exist
in thread How to make Geo::Coder::Google run even if input location doesn't exist
It seem to work now... It get's coordinates even for the unexisting location like 'CorseMétéo'. However it still gives an error : "Useless use of string in void context at geoTest.pl line 27.". The code :
#!/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', 'New Delhi'); my ($long, $lat); foreach my $place(@place){ my $geocoder = Geo::Coder::Google->new(apikey => '{MyAPIkeyHere}') +; my $response; until (defined $response){ eval{ $response = $geocoder->geocode(location => $place); if ($@){ "Couldn't get location : $place\n"; }else{ ($long, $lat) = @{ $response->{Point}{coordinates} }; } } } print "$place\n"; print "$long\n"; print "$lat\n"; }
Do you think it's a problem if I use the code even if it gives an error bu it works?
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^7: How to make Geo::Coder::Google run even if input location doesn't exist
by AnomalousMonk (Archbishop) on Mar 01, 2013 at 16:03 UTC | |
Re^7: How to make Geo::Coder::Google run even if input location doesn't exist
by AnomalousMonk (Archbishop) on Mar 01, 2013 at 17:14 UTC | |
by M15U (Acolyte) on Mar 04, 2013 at 17:08 UTC |
In Section
Seekers of Perl Wisdom