WWW::Google::PageRank #

こんなスクリプトを保存しておいて

 #!/usr/bin/perl
 use strict;
 use warnings;
 
 use WWW::Google::PageRank;
 
 my $g = WWW::Google::PageRank->new;
 my $p = $g->get(shift);
 print $p,"\n";

実行すると

 [name@host]$ pagerank http://haro.jp/
 4

とかなって、~~ひまつぶし~~ 参考になる

WWW::Google::PageRank #

See Also