ページランクの取得

---

　WWW::Google::PageRankモジュールを使うと簡単にGoogleのページランクを取得できます。

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

my @pages = qw(
    http://www2u.biglobe.ne.jp/~MAS/
    http://d.hatena.ne.jp/MAS3/
    http://cross.matrix.jp/
    http://books.ivory.ne.jp/regexp/
);

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

foreach my $page (@pages) {
    my ($rank, $res) = $pr->get($page);
    $rank = 0 unless defined $rank;
    printf "%2d %s\n", $rank, $page;
}

---

関連項目

・Webページの取得