Onde está o Wally? Eu achei!!! 8)))))<br><br><br>-- <br>Robson Mothé<br><a href="mailto:rmothe@gmail.com">rmothe@gmail.com</a><br>GNU/Linux User #318909<br><br><br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="gmail_quote">
#!/usr/bin/perl -w<br>
use strict;<br><b style="color: rgb(255, 0, 0);">
use DBI; # Aqui está o Wally? 8)))))<br>
</b> 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.br/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 clear="all"></div></blockquote></div><br>