GoogleToolbarなどにページランク表示がありますが、これをサーバサイドで取得することができます。
あまりフレッシュな話題ではないですが、使ってみたのでメモしておきます。
CPANにあるライブラリを使います。
WWW::Google::PageRank
(見つからない場合はこちらから検索できます)
使い方
newしてget()するだけでした。
#!/usr/bin/perl use strict; use warnings; use WWW::Google::PageRank; my $url = 'http://www.yahoo.co.jp'; my $pr = WWW::Google::PageRank->new; $pageRank = $pr->get($url); print "Content-type:text/html;nn"; print "$url : " . $pageRank; exit;
あまりにも簡単で拍子抜けしてしまいました:D
ただし、以下の2点が問題?なので使うには注意が必要です。
- 内部でUserAgentをGoogleToolbarに偽装してGoogleにリクエストを投げている
- リクエストを投げる時に必要なチェックサムの計算方法はGoogleが公式に公開しているものではない