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 &quot;Uso: distancia.pl &lt; municipio-uf&gt; &lt; municipio-uf&gt;&quot; if(scalar(@ARGV) != 2);<br>
<br>
  my $origem = $ARGV[0];<br>
  my $destino= $ARGV[1];<br>
<br>
  my $url = &quot;<a href="http://maps.google.com/maps?saddr=$origem&amp;daddr=$destino&amp;hl=en&amp;z=1" target="_blank">http://maps.google.com.br/maps?saddr=$origem&amp;daddr=$destino&amp;hl=en&amp;z=1</a>&quot;;<br>
  my $page = get($url);<br>
  my @dados = split(/,distance:&quot;/, $page);<br>
  my @dist  = split(/ km&quot;,/, $dados[1]);<br>
  $dist[0] =~ s/,//g;<br>
  print &quot;Distancia de $origem a $destino = $dist[0] km\n&quot;;<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 &quot;Rio de Janeiro-RJ&quot;<br>
  Distancia de Bauru-SP a Rio de Janeiro-RJ = 763 km<br>
<br clear="all"></div></blockquote></div><br>