Miscellany

#!/usr/bin/perl

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

my($in, $out) = @ARGV;
my $url;

usage() unless $in and $out;

open(IN, '<', $in) or die "open(): error: Can't open ", $in, " for reading.\n";

open(OUT, '>', $out) or die "open(): error: Can't create ", $out, ".\n";

my $google = WWW::Google::PageRank -> new;

while(defined(my $domain = <IN>))
{
        chomp $domain;
        if($domain !~ /^http:\/\/(.*)$/)
        {
                $url = "http://" . $domain;
        }
        else
        {
                $url = $domain;
        }
        my $rank = $google -> get($url);
        if($url)
        {
                print $url, " has page rank ", $rank, "\n";
                print OUT $url, ":", $rank, "\n";
        }
}
close OUT;
close IN;
exit;

sub usage
{
        die <<EOH
Usage: $0 <infile> <outfile>
Infile should contain a list of domains, one per line.
Outfile is where the results will be wrtten to (in addition to STDOUT).
EOH

}