Re^2: Checking Google PageRank

[vit]

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";

[biohisham]

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

[anneli]

This is most likely. Google's PageRank endpoints are very trigger-happy with the banhammer, and will begin demanding CAPTCHAs (which I'm sure WWW::Google::PageRank will not like) very quickly.