>>>>> "Me" == Chris Ball <[EMAIL PROTECTED]> writes:
Me> I was wondering whether it would be worthwhile creating a CPAN
Me> module - something like WWW::Google::SOAP - to allow simple
Me> searches with the SOAP API, returning a nice hash. Looks like
Me> it might be..
... and it also looks like someone else (a fellow london.pm'er, in fact)
beat me to it. Leon Brocard has written a WWW::Search::Google with SOAP
support, which would allow you to use the much less wieldly:
use WWW::Search;
my $search = WWW::Search->new('Google', key => $key);
$search->native_query("leon brocard");
while (my $result = $search->next_result()) {
print $result->title, "\n";
print $result->url, "\n";
print $result->description, "\n";
print "\n";
}
It's at: http://www.astray.com/tmp/WWW-Search-Google-0.17.tar.gz
... and you'll need to install it with the usual 'perl Makefile.PL &&
make && make test && make install'. It's not on the CPAN, I believe,
because Leon wants to okay it with Google first; since they asked for
the original WWW::Search::Google to be removed.
Hope this is _more_ helpful, ;-)
- Chris.
--
$a="printf.net"; Chris Ball | chris@void.$a | www.$a | finger: chris@$a
As to luck, there's the old miners' proverb: Gold is where you find it.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
