Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^3: Checking Google PageRank

by biohisham (Priest)
on Oct 11, 2011 at 19:52 UTC ( #930879=note: print w/replies, xml ) Need Help??

in reply to Re^2: Checking Google PageRank
in thread Checking Google PageRank

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(""); 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...

Replies are listed 'Best First'.
Re^4: Checking Google PageRank
by anneli (Pilgrim) on Oct 11, 2011 at 20:56 UTC

    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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://930879]
[usemodperl]: perldoc -v 'ARGV' works but perldoc -v "STDIN' does not, but they are both filehandles. is there a perldoc for STDIN?
[usemodperl]: (typo not withstanding :)
usemodperl thinks about loose coupling...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2018-06-19 19:19 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (114 votes). Check out past polls.