[Rio-pm] Fwd: [Dicas-L] Google Maps e Perl para calculo de distancias

[Robson Mothé]

Onde está o Wally? Eu achei!!! 8)))))


-- 
Robson Mothé
rmothe em gmail.com
GNU/Linux User #318909


  #!/usr/bin/perl -w
>  use strict;
> *  use DBI; # Aqui está o Wally? 8)))))
> * use LWP::Simple;
>
>  die "Uso: distancia.pl < municipio-uf> < municipio-uf>" if(scalar(@ARGV)
> != 2);
>
>  my $origem = $ARGV[0];
>  my $destino= $ARGV[1];
>
>  my $url = "
> http://maps.google.com.br/maps?saddr=$origem&daddr=$destino&hl=en&z=1<http://maps.google.com/maps?saddr=$origem&daddr=$destino&hl=en&z=1>
> ";
>  my $page = get($url);
>  my @dados = split(/,distance:"/, $page);
>  my @dist  = split(/ km",/, $dados[1]);
>  $dist[0] =~ s/,//g;
>  print "Distancia de $origem a $destino = $dist[0] km\n";
>
>
> Este script recebe como parâmetro a origem e o destino para o cálculo da
> distância.
>
> Por exemplo, para calcular a distancia entre Bauru-SP e Brasilia-DF, temos:
>
>
>  ~$./distancia.pl Bauru-SP Brasilia-DF
>  Distancia de Bauru-SP a Brasilia-DF = 933 km
>
> Se o nome da cidade contiver espaços, basta colocá-lo entre aspas:
>
>
>  ~$./distancia.pl Bauru-SP "Rio de Janeiro-RJ"
>  Distancia de Bauru-SP a Rio de Janeiro-RJ = 763 km
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090831/a63670c4/attachment.html>