Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Re: check words popularity using Google

by mooseboy (Pilgrim)
on Mar 08, 2003 at 08:49 UTC ( #241357=note: print w/replies, xml ) Need Help??


in reply to Re: check words popularity using Google
in thread check words' popularity using Google

OK, here's a quick rewrite using SOAP::Lite instead of screen-scraping. Now I'm off to install Net::Google and DBD::google to see what they can offer!

#!/usr/bin/perl use warnings; use strict; use SOAP::Lite; my $key = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; die "Usage: goolies2 word1 word2\n" unless @ARGV; foreach my $query (@ARGV) { my $googleSearch = SOAP::Lite->service("file:GoogleSearch.wsdl"); my $result = $googleSearch->doGoogleSearch($key, $query, 0, 10, "f +alse", "", "false", "", "latin1", latin1"); print "$query returned about $result->{'estimatedTotalResultsCount +'} results.\n"; } __END__ sample output: heather nova returned about 136000 results. sheryl crow returned about 238000 results. avril lavigne returned about 463000 results.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://241357]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2021-06-18 11:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (89 votes). Check out past polls.

    Notices?