PerlでGoogle PageRankをまとめて取得する

Tweet

たまに気になるGoogle PageRank。できればまとめて取得したいってんでこういうの。

Filename: pagerank.pl

#!/usr/bin/perl
 
use strict;
use warnings;
use WWW::Google::PageRank;
 
my @urls = (
   'http://dtpwiki.jp/',
   'http://blog.dtpwiki.jp/',
   'http://www.dtpwiki.jp/',
   'http://ranking.dtpwiki.jp/',
);
 
my $pr = WWW::Google::PageRank->new;
foreach my $url ( @urls ) {
  my $pagerank = $pr->get( $url );
  print "$pagerank\t$url\n";
  sleep 5; # 5秒待ち
}
exit;

$ perl pagerank.pl
3       http://dtpwiki.jp/
2       http://blog.dtpwiki.jp/
1       http://www.dtpwiki.jp/
2       http://ranking.dtpwiki.jp/
$

んで、どっかで正規表現とかの授業やったらしいので、上記のスクリプトのURLリストを、Googleで検索した後のソースから生成するような訓練すると上達すると思う。秀丸ならGrepして置換することになるよね。

2010.10.04 23:40 投稿　大野 義貴 [Perl] | 固定リンク |