Thread: 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:

Code:

#!/usr/bin/perl
use locale;
use WWW::Google::PageRank;
my $pr = WWW::Google::PageRank->new();
my $url = shift;
my $rank = $pr->get($url);
print "PageRank: " .  $rank . " " . $url . "\n";

I call the script pr.pl and I run it like this:

Code:

$ pr.pl http://www.netbuilders.org
PageRank: 3 http://www.netbuilders.org

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.

Then, I often run the output through the `sort` command to highlight the URL's with higher PageRank values.

looks great

can it be modified in some way to use it for getting PR of inner pages too somehow like the tool by seojunkie which fetches pr of all inner pages indexed in google for the particular url

It get's the PageRank of an inner page if you ask it to, but it doesn't find all of the inner pages for you.

It's PERL, of course, so it can be modified to do almost anything. The easy thing would be to connect it up to another script, like `wget`. You could use wget to get the list of pages and then this script to get the PageRank.