Check Google toolbar pagerank against multiple hosts

| No Comments
One of my sites was coming up with a graybar, so I wanted to check it against other hosts, besides the default.  I tried a couple of the websites that I normally do this with, and they weren't working.  So, I wrote the following few lines.

use strict;
use warnings;
use WWW::Google::PageRank;

my @hosts = (

for my $host (@hosts) {
	print "\n$host\n";
	my $pr = WWW::Google::PageRank->new(host => $host)
		or die $!;
	for my $domain (@ARGV) {
		$domain =~ s{http://}{};
		$domain =~ s{/$}{};
		my $pagerank = $pr->get("http://$domain/");
		print "    $pagerank  $domain\n";

Leave a comment

About this Entry

This page contains a single entry by Bill Ruppert published on August 7, 2009 2:18 PM.

"Everything" at was the previous entry in this blog.

Removing HTML::FormFu elements from a form is the next entry in this blog.

Find recent content on the main index or look in the archives to find all content.


OpenID accepted here Learn more about OpenID
Powered by Movable Type 4.38