[bglug] Google Maps API

[k|b|s]

Roberto Santini wrote:
> Tuttavia, non ho capito una cosa. La mappa finale la stampi
> oppure ti serve per stabilire un percorso da seguire??
Per le mappe uso questo:

--8<-- CUT HERE --8<-- 
#!/usr/bin/perl -w
use strict;

my $u = 'http://maps.google.com/maps?f=q&hl=en&q=$';
if (@ARGV) {
  foreach (@ARGV) {
    s/[^ \w]/sprintf '%%%02X', ord $&/eg;
    if( s/ /+/g ) { $_ = "\"$_\"" };
  }
  $u .= "maps?f=q&hl=en&q=\$" . (join '+', @ARGV);
}

exec 'firefox', $u;
--8<-- CUT HERE --8<--

Modificalo per fargli leggere il file di input.

-- 
Produci, consuma, crepa
 mailto: ʇı̣˙ɓnƮɓq@sqʞ