Ryuzee.com

Webコンサルタントの愚痴とアジャイル,生産性向上,Trac,オープンソースなどの与太話

Ryuzeeの他サイト

携帯対応

RING

新着記事

2009.01.06: WordPressの好きなところ
2009.01.04: [どうでもよいこと]つれづれ
2009.01.02: [どうでもよいこと]Delphi5でXML-RPC（力技）
2009.01.01: あけましておめでとうございます＋今年の目標設定
2008.12.31: [どうでもよいこと]デスマっちゃう条件

Google Page Rankをまとめて取得する

8 月 2nd, 2008 Perl none Comments

仕事でとあるサイトのGoogle Page Rankをいっぱい調べないといけないらしいのだが、驚いたことに手打ちで調べようとしている人がいる。こういうのはシステムが得意なのに。システムで自動でできちゃうようなことを人手で力技でやろうとするから残業地獄になっちゃうんだよ～。
ということで、Perlでのやり方のメモ。

肝は、CPANのモジュールにあるWWW::Google::PageRankを使えば一発だ、ってこと。

１．CPANからWWW::Google::PageRankをインストールする。

cpan -i WWW::Google::PageRank

２．もう準備完了。以下のようなスクリプトを書けば良い。

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Google::PageRank;

my @URL = (
'http://www.ryuzee.com/',
'http://www.yahoo.co.jp',
'http://search.cpan.org',
);

my $gp = WWW::Google::PageRank->new;
foreach(@URL) {
my $val = scalar($gp->get($_));
print $_ . "\t" . $val . "\n";
}