Determine Google PageRank via PERL


We can determine Google PageRank with a code of 3 lines in PERL. You need to install WWW::Google::PageRank, download from here. The script is as follows

#!/usr/bin/perl
use WWW::Google::PageRank;
my $pr = WWW::Google::PageRank->new(proxy => ‘http://A.B.C.D:Port/’);
print scalar($pr->get($ARGV[0])), “\n”;

Usage: perl <script_name> <static_URL>

If you use no proxy then delete “proxy => ‘http://A.B.C.D:Port/'&#8221; otherwise mention the Proxy IP address & Port. The script returns an integer as PageRank (Higher is better). That’s all, Thanks.

Advertisements