Quote:
Originally Posted by darksoul
Code:
#/usr/bin/perl
use strict;
use WWW::Google::PageRank;
my $url = shift;
exit unless $url;
my $pr = WWW::Google::PageRank->new();
print scalar($pr->get(?http://$url?)),?\n?;
|
Don't forget that this also requires Net::UserAgent and can only be run from teh command line. If it's run as a cgi, then it needs an API key