PERL Script to Show PageRank
This little PERL script has saved me a lot of time when I want to find the PR of a large number of URL's.
Here's the code:
I call the script pr.pl and I run it like this:
my $pr = WWW::Google::PageRank->new();
my $url = shift;
my $rank = $pr->get($url);
print "PageRank: " . $rank . " " . $url . "\n";
But more frequently, I run it from within another script -- one that contains a list of hundreds of URL's that I want to check painlessly.
$ pr.pl http://www.netbuilders.org
PageRank: 3 http://www.netbuilders.org
Then, I often run the output through the `sort` command to highlight the URL's with higher PageRank values. :)