米国に限られるが、Perl には Geo::Google というモジュールがある。このモジュールを利用すると Google Maps からルートを検索できる。以下は、サンフランシスコダウンタウンのユニオンスクウェアにあるヒルトンからPIER 39までのルート検索の結果を XML で出力する例。 使用するモジュール use Encode; use Geo::Google; #!/usr/bin/perl use Encode; use Geo::Google; # 変数の初期化 our $GEO = new Geo::Google; our $XML_HEADER = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; our $output = ''; # xml 出力 our ($dist); $dist->{from} = qq