Tie::Google 0.03

Tie::Google is a Perl module with single-variable access to Google search results.

SYNOPSIS

my $KEYFILE = glob "~/.googlekey";
my ($g, @g, %g);

# Tied array interface
tie @g, "Tie::Google", $KEYFILE, "perl";
for my $r (@g) {
printf " *,
$r->{URL}, $r->{title};
}

# Tied hash interface
tie %g, "Tie::Google", $KEYFILE;
for my $term (qw[ perl python ruby ]) {
my $res = $g{$term};
printf "%d results for %s:n", scalar @$res, $term;

for my $r (@$res) {
printf " * ,
$r->{URL}, $r->{title};
}
}

# Tied scalar interface: I Feel Lucky
use LWP::Simple qw(getprint);
tie $g, "Tie::Google", $KEYFILE, "perl";
getprint($g->{URL});