http://qs321.pair.com?node_id=930852

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.
[reply]
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...
[reply]
[d/l]
      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";

      [download]
[reply]
[d/l]
        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

        [download]

        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...
[reply]
[d/l]
[select]
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

[reply]

Back to Seekers of Perl Wisdom