Free to google software for linux

Net::Google is a simple OOP-ish interface to the Google SOAP API.

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();

Provides a simple OOP-ish interface to the Google SOAP API

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.

DBD::Google is a Perl module to treat Google as a datasource for DBI.

SYNOPSIS

use DBI;

my $dbh = DBI->connect("dbi:Google:", $KEY);
my $sth = $dbh->prepare(qq[
SELECT title, URL FROM google WHERE q = "perl"
]);

while (my $r = $sth->fetchrow_hashref) {
...

DBD::Google allows you to use Google as a datasource; Google can be queried using SQL SELECT statements, and iterated over using standard DBI conventions.

WARNING: This is still alpha-quality software. It works for me, but that doesnt really mean anything.

Google Gears project is an open source Firefox extension that enables web applications to provide offline functionality using following JavaScript APIs:
- Store and serve application resources locally
- Store data locally in a fully-searchable relational database
- Run asynchronous Javascript to improve application responsiveness

Ruby/Google offers a higher-level abstraction of Googles SOAP-driven Web API. Ruby/Google module allows the user to programatically query the Google search engine from Ruby.

The aim of the library is to shield the programmer from the details of the raw data structures returned by the Web API, and in the process make the API more accessible for everyday use.

Geo::Google::Path is a path, by automobile, between two loci.

SYNOPSIS

use Geo::Google::Path;
# you shouldnt need to construct these yourself,
# have a Geo::Google object do it for you.

Google Maps is able to serve up directions between two points. Directions consist of two types of components:

1. a series of points along a "polyline".
2. a series of annotations, each of which applies to a contiguous
range of points.

In the Geo::Google object model, directions are available by calling path() on a Geo::Google instance. The return value is a Geo::Google::Path object, which is a composite of Geo::Google::Segment objects, which are in turn composites of Geo::Google::Location objects.

Geo::Coder::Google is a Perl module for Google Maps Geocoding API.

SYNOPSIS

use Geo::Coder::Google;

my $geocoder = Geo::Coder::Google->new(apikey => Your API Key);
my $location = $geocoder->geocode( location => Hollywood and Highland, Los Angeles, CA );

Geo::Coder::Google provides a geocoding functionality using Google Maps API.

METHODS

new

$geocoder = Geo::Coder::Google->new(apikey => Your API Key);
$geocoder = Geo::Coder::Google->new(apikey => Your API Key, host => maps.google.co.jp);

Creates a new geocoding object. You should pass a valid Google Maps API Key as apikey parameter.

When youd like to query Japanese address, you might want to set host parameter, which should point to maps.google.co.jp. I think this also applies to other countries like UK (maps.google.co.uk), but so far I only tested with .com and .co.jp.

geocode

$location = $geocoder->geocode(location => $location);
@location = $geocoder->geocode(location => $location);

Queries $location to Google Maps geocoding API and returns hash refernece returned back from API server. When you cann the method in an array context, it returns all the candidates got back, while it returns the 1st one in a scalar context.
When youd like to pass non-ascii string as a location, you should pass it as either UTF-8 bytes or Unicode flagged string.

Returned data structure is as follows:

{
AddressDetails => {
Country => {
AdministrativeArea => {
SubAdministrativeArea => {
SubAdministrativeAreaName => San Francisco,
Locality => {
PostalCode => {
PostalCodeNumber => 94107
},
LocalityName => San Francisco,
Thoroughfare => {
ThoroughfareName => 548 4th St
}
}
},
AdministrativeAreaName => CA
},
CountryNameCode => US
}
},
address => 548 4th St, San Francisco, CA 94107, USA,
Point => {
coordinates => [
-122.397323,
37.778993,
0
]
}
}