Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Checking Google PageRank

by vit (Friar)
on Oct 11, 2011 at 16:20 UTC ( #930852=perlquestion: print w/replies, xml ) Need Help??

vit has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,
Can anybody share a working program for testing Google PageRank. By some reason WWW::Google::PageRank is not working for me anymore.

Replies are listed 'Best First'.
Re: Checking Google PageRank
by OlegG (Monk) on Oct 12, 2011 at 02:17 UTC
    First of all u should see active bugs for module u are trying to use. Bug report 71541 contains a patch.
    Alternatively, you can try to use AnyEvent::Google::PageRank, where this bug already fixed.
Re: Checking Google PageRank
by biohisham (Priest) on Oct 11, 2011 at 17:12 UTC
    Can you provide more specifics on the 'is not working for me anymore' part? What complaints do you get? and what do you make of these complaints?

    From CPAN the other PageRank moduels are more or less wrappers to WWW::Google::PageRank or are simple algorithms that may perform on a limited size of data


    David R. Gergen said "We know that second terms have historically been marred by hubris and by scandal." and I am a two y.o. monk today :D, June,12th, 2011...
      Method get returns an empty string.
      use strict; use Data::Dumper; use WWW::Google::PageRank; my $pr = WWW::Google::PageRank->new; print Dumper($pr); print scalar($pr->get('http://www.yahoo.com/')), "\n";
        Well, what appears is that an HTTP request gets executed and is actually successful but no content is returned that we can decode via HTTP::Response::decoded_content or HTTP::Response::content, it is very hard for me to find out but the behavior seems universal regardless of the website I am querying, so maybe Google has stopped entertaining automated access via code for security probably, just a guess ..
        use strict; use warnings; use HTTP::Response; use HTTP::Status; use Data::Dumper; use WWW::Google::PageRank; my $pr = WWW::Google::PageRank->new; my @context = $pr->get("http://www.perlmonks.org"); print $context[1]->status_line, "<<<<\n"; #The request is carried out! print $context[1]->content,"\n"; #No result is returned print $context[1]->decoded_content,"\n"; #No result either


        David R. Gergen said "We know that second terms have historically been marred by hubris and by scandal." and I am a two y.o. monk today :D, June,12th, 2011...
Re: Checking Google PageRank
by Transalp (Sexton) on Oct 17, 2011 at 15:11 UTC

    WWW::Google::PageRank should be updated.

    Old URL: http://toolbarqueries.google.com/search?client=navclient-auto&features=Rank&ch=8f3b58e04&q=info:http://www.example.com

    New URL: http://toolbarqueries.google.com/tbr?client=navclient-auto&features=Rank&ch=8f3b58e04&q=info:http://www.example.com

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://930852]
Approved by Corion
Front-paged by biohisham
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (1)
As of 2021-12-04 02:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (30 votes). Check out past polls.

    Notices?