Free interface to google maps software for linux

WebService::GoogleMaps is an automated interface to Google Maps.

SYNOPSIS

use WebService::GoogleMaps;

# Set up a new object with a viewport of 640 x 480 pixels
my $gmap = WebService::GoogleMaps->new( 640, 480 );

# Specify a location to view
$gmap->set(
latitude => 40.750275,
longitude => -73.993034,
zoom_level => 4, # valid values are 0..14, lower value is more zoomed
cache_dir => "/tmp", # optional, but recommended! Helps speed up future requests
pan_x => 0, # move viewport to the east (+) or west (-) a number of pixels
pan_y => 0, # move viewport to the south (+) or north (-) a number of pixels
);

# create a GD object containing our bitmapped map object
$gmap->generate_gd();

# or simply
# $gmap->generate_gd(40.750275, -73.993034, 4); # latitude, longitude, zoom_level

my $error = $gmap->error();
$error && print "Error: $errorn";

open (FH, ">", "mymap.png");
binmode FH;
print FH $gmap->{gd}->png;
close(FH);

WebService::GoogleMaps provides an automated interface to Google Maps http://maps.google.com/, which provides free street maps of locations in the USA and Canada. This module allows you to specify an image size, latitude, longitude, and zoom level and returns a GD object containing a street level map.

Google Maps Plugin is an easy way to embed custom Google Maps on a Web site. The project includes features such as multiple markers, paths, and general drawings.

If you use WordPress.org blogs, you will be able to install this software easily as a WP plugin.

Google Hacks project is a compilation of carefully crafted Google searches that expose novel functionality from Googles search and map services.

For example, you can use it to view a timeline of your search results, view a map, search for music, search for books, and perform many other specific kinds of searches.

Geo::Google is a Perl module to perform geographical queries using Google Maps.

SYNOPSIS

use strict;
use Data::Dumper;
use Geo::Google;

#My office
my $gonda_addr = 695 Charles E Young Dr S, Westwood, CA 90024;
#Stans Donuts
my $stans_addr = 10948 Weyburn Ave, Westwood, CA 90024;

#Instantiate a new Geo::Google object.
my $geo = Geo::Google->new();

#Create Geo::Google::Location objects. These contain
#latitude/longitude coordinates, along with a few other details
#about the locus.
my ( $gonda ) = $geo->location( address => $gonda_addr );
my ( $stans ) = $geo->location( address => $stans_addr );
print $gonda->latitude, " / ", $gonda->longitude, "n";
print $stans->latitude, " / ", $stans->longitude, "n";

#Create a Geo::Google::Path object.
my ( $donut_path ) = $geo->path($gonda,$stans);

#A path contains a series of Geo::Google::Segment objects with
#text labels representing turn-by-turn driving directions between
#the two loci.
my @segments = $donut_path->segments();

#This is the human-readable directions for the first leg of the
#journey.
print $segments[0]->text(),"n";

#Geo::Google::Segment objects contain a series of
#Geo::Google::Location objects -- one for each time the segment
#deviates from a straight line to the end of the segment.
my @points = $segments[1]->points;
print $points[0]->latitude, " / ", $points[0]->longitude, "n";

#Now how about some coffee nearby?
my @coffee = $geo->near($stans,coffee);
#Too many. How about some Coffee Bean & Tea Leaf?
@coffee = grep { $_->title =~ /Coffee.*?Bean/i } @coffee;

#Still too many. Lets find the closest with a little trig and
#a Schwartzian transform
my ( $coffee ) = map { $_->[1] }
sort { $a->[0] $b->[0] }
map { [ sqrt(
($_->longitude - $stans->longitude)**2
+
($_->latitude - $stans->latitude)**2
), $_ ] } @coffee;

Geo::Google provides access to the map data used by the popular Google Maps web application.

Net::Google::tool is a base class for Net::Google service classes.

Base class and shared methods for Net::Google service classes.

SYNOPSIS

use Net::Google;
use constant LOCAL_GOOGLE_KEY => "********************************";

my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
my $search = $google->search();

# Search interface

$search->query(qw(aaron straup cope));
$search->lr(qw(en fr));
$search->starts_at(5);
$search->max_results(15);

map { print $_->title()."n"; } @{$search->results()};

# or...

foreach my $r (@{$search->response()}) {
print "Search time :".$r->searchTime()."n";

# returns an array ref of Result objects
# the same as the $search->results() method
map { print $_->URL()."n"; } @{$r->resultElements()};
}

# Spelling interface

print $google->spelling(phrase=>"muntreal qwebec")->suggest(),"n";

# Cache interface

my $cache = $google->cache(url=>"http://search.cpan.org/recent");
print $cache->get();

Net::Google::Cache is a simple OOP-ish interface to the Google SOAP API for cached documents.

SYNOPSIS

use Net::Google::Cache;
my $cache = Net::Google::Cache(%args);

$cache->url("http://aaronland.net);
print $cache->get();

Provides a simple OOP-ish interface to the Google SOAP API for cached documents.
This package is used by Net::Google.

WebService::Google::Sets is a Perl access to Google Labs Sets site.

SYNOPSIS

use WebService::Google::Sets;

my @os_list = qw(Linux Windows Solaris);
my $expanded_os_list = get_gset(@os_list);

# check something came back
die "No results returned from server" unless $expanded_os_list;

foreach my $element (@$expanded_os_list) {
print $element, "n";
}

WebService::Google::Sets provides function based access to the Sets service hosted at Google Labs.

The Sets service attempts to expand the values you provide. The example provided in the SYNOPSIS would return an array that included "Windows NT", "HPUX" and "AIX" as values in addition to those supplied.