root/misc/pagerank

Revision 1940 (checked in by miyagawa, 14 years ago)

added pageranker

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4
5 use WWW::Google::PageRank;
6
7 my $url = shift @ARGV or die "Usage: pagerank URL\n";
8 unless ($url =~ m!^http!) {
9     $url = "http://$url";
10 }
11
12 my $pr = WWW::Google::PageRank->new;
13 print "Page Rank: ", scalar($pr->get($url)) || 0, "\n";
Note: See TracBrowser for help on using the browser.