カテゴリー別アーカイブ: perl

Googleのページランクを取得する

投稿日: 2007年7月23日 作成者: 中川

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が公式に公開しているものではない

カテゴリー: perl | コメントをどうぞ