fyi<br><br><div class="gmail_quote">---------- Forwarded message ----------<br>From: <b class="gmail_sendername"></b> <span dir="ltr"><<a href="mailto:Dicas-L-Owner@dicas-l.com.br">Dicas-L-Owner@dicas-l.com.br</a>></span><br>
Date: 2009/8/26<br>Subject: [Dicas-L] Google Maps e Perl para calculo de distancias<br>To: <br><br><br>------------------------------------------------------------------------------<br>
:: Acompanhe a Dicas-L no twitter: <a href="http://www.twitter.com/dicasl" target="_blank">http://www.twitter.com/dicasl</a> ::<br>
------------------------------------------------------------------------------<br>
:.: JQuery - Aprenda na Prática :.:<br>
Produzir um site utilizando-se de recursos tidos como<br>
"modernos" não é complicado como parece!<br>
<a href="http://www.temporealeventos.com.br/?area=132" target="_blank">http://www.temporealeventos.com.br/?area=132</a><br>
---------------------------------------------------------------------------<br>
<br>
Google Maps e Perl para calculo de distancias<br>
=============================================<br>
<br>
Colaboração: Marcos Roberto Silva<br>
<br>
Data de Publicação: 26 de August de 2009<br>
<br>
No dia 01/07 vi a dica do Airton Carrara sobre como calcular distâncias<br>
entre cidades utilizando o Google Maps em Java.<br>
<br>
Como alternativa à dica do Airton, segue abaixo script escrito em Perl que<br>
faz a mesma coisa, só que do meu ponto de vista, um pouco mais simples :)<br>
<br>
<br>
#!/usr/bin/perl -w<br>
use strict;<br>
use DBI;<br>
use LWP::Simple;<br>
<br>
die "Uso: distancia.pl < municipio-uf> < municipio-uf>" if(scalar(@ARGV) != 2);<br>
<br>
my $origem = $ARGV[0];<br>
my $destino= $ARGV[1];<br>
<br>
my $url = "<a href="http://maps.google.com/maps?saddr=$origem&daddr=$destino&hl=en&z=1" target="_blank">http://maps.google.com/maps?saddr=$origem&daddr=$destino&hl=en&z=1</a>";<br>
my $page = get($url);<br>
my @dados = split(/,distance:"/, $page);<br>
my @dist = split(/ km",/, $dados[1]);<br>
$dist[0] =~ s/,//g;<br>
print "Distancia de $origem a $destino = $dist[0] km\n";<br>
<br>
<br>
Este script recebe como parâmetro a origem e o destino para o cálculo da<br>
distância.<br>
<br>
Por exemplo, para calcular a distancia entre Bauru-SP e Brasilia-DF, temos:<br>
<br>
<br>
~$./distancia.pl Bauru-SP Brasilia-DF<br>
Distancia de Bauru-SP a Brasilia-DF = 933 km<br>
<br>
Se o nome da cidade contiver espaços, basta colocá-lo entre aspas:<br>
<br>
<br>
~$./distancia.pl Bauru-SP "Rio de Janeiro-RJ"<br>
Distancia de Bauru-SP a Rio de Janeiro-RJ = 763 km<br>
<br>
Com um pequeno esforço de programação, consegui automatizar a criação de<br>
uma tabela de distância entre 55 municípios partindo do script acima, com<br>
conexão a banco de dados, etc...<br>
<br>
Marcos Roberto Silva (<a href="mailto:marcos.roberto.silva@uol.com.br">marcos.roberto.silva@uol.com.br</a>)<br>
--------------------------------------------------------------------<br>
SEM e SEO - Dominando o Marketing de Busca<br>
<a href="http://www.novatec.com.br/livros/semeseo/" target="_blank">http://www.novatec.com.br/livros/semeseo/</a><br>
Livros da Editora Novatec com desconto para assinantes da Dicas-L<br>
Código da promoção: DICAS-L<br>
Desconto: 20%<br>
Validade: 31/12/2009<br>
------------------------------------------------------------------------<br>
Colabore com a Dicas-L. Publique seu comentário sobre esta mensagem<br>
em <a href="http://www.Dicas-L.com.br/dicas-l/20090826.php" target="_blank">http://www.Dicas-L.com.br/dicas-l/20090826.php</a><br>
--------------------------------------------------------------------<br>
Veja também do arquivo da Dicas-L:<br>
<br>
"Sofrimento em Frente ao Monitor"<br>
<a href="http://www.dicas-l.com.br/dicas-l/20000828.php" target="_blank">http://www.dicas-l.com.br/dicas-l/20000828.php</a><br>
<br>
"Lotus SmartSuite 97"<br>
<a href="http://www.dicas-l.com.br/dicas-l/20000121.php" target="_blank">http://www.dicas-l.com.br/dicas-l/20000121.php</a><br>
<br>
"Inscrição de Sites em Mecanismos de Busca"<br>
<a href="http://www.dicas-l.com.br/dicas-l/20000505.php" target="_blank">http://www.dicas-l.com.br/dicas-l/20000505.php</a><br>
<br>
"Desenvolvedores ganham especificação para Linux"<br>
<a href="http://www.dicas-l.com.br/dicas-l/20010925.php" target="_blank">http://www.dicas-l.com.br/dicas-l/20010925.php</a><br>
<br>
"Cameras Digitais e Linux"<br>
<a href="http://www.dicas-l.com.br/dicas-l/20020306.php" target="_blank">http://www.dicas-l.com.br/dicas-l/20020306.php</a><br>
<br>
------------------------------------------------------------------------<br>
A Dicas-L tem o apoio da Locaweb (<a href="http://www.locaweb.com.br" target="_blank">http://www.locaweb.com.br</a>)<br>
-------------------------------------------------------------------------<br>
Descadastramento: <a href="http://www.dicas-l.com.br/descadastramento.php" target="_blank">http://www.dicas-l.com.br/descadastramento.php</a><br>
-------------------------------------------------------------------------<br>
<br>
As mensagens da lista Dicas-L são veiculadas diariamente<br>
para 29517 assinantes.<br>
<br>
Todas as mensagens da Dicas-L ficam armazenadas em<br>
<a href="http://www.Dicas-L.com.br/dicas-l/" target="_blank">http://www.Dicas-L.com.br/dicas-l/</a><br>
<br>
A redistribuição desta e outras mensagens da lista Dicas-L pode<br>
ser feita livremente segundo a licença Creative Commons<br>
<a href="http://creativecommons.org/licenses/by-nc-sa/2.0/br/deed.pt" target="_blank">http://creativecommons.org/licenses/by-nc-sa/2.0/br/deed.pt</a><br>
<br>
/ Dicas-L: Uma dica por dia desde 3 de \ março de 1997 /<br>
--------------------------------------<br>
\ ^__^<br>
\ (oo)\_______<br>
(__)\ )\/ ||----w |<br>
|| ||<br>
-------------------------------------------------------------------------<br>
Newsfeed RSS: <a href="http://www.dicas-l.com.br/index.xml" target="_blank">http://www.dicas-l.com.br/index.xml</a><br>
-------------------------------------------------------------------------<br>
</div><br>