Google PageRankをperlスクリプトで取得する
そんなに毎日変動するものではないので、Google Tool Barをインストールしたブラウザで定期的にヲチしりゃいいんじゃね？
とか思うけど、まぁそこはオトナの事情で（以下ry
面倒なのでperlでスクリプト書いてしまってcronに登録してしまい、月曜日の朝にメールで送るとかにしてみよう。
CPAN探したら、そのものずばりのモジュールが有ったので、これで仕事の8割は完了したも同然。
cpanのシェルを起動して
インスタンス作る時にプロキシの設定ができるようなので、こんなコードを書いたらランクが取得できた。
やってみよう。
とか思うけど、まぁそこはオトナの事情で（以下ry
面倒なのでperlでスクリプト書いてしまってcronに登録してしまい、月曜日の朝にメールで送るとかにしてみよう。
CPAN探したら、そのものずばりのモジュールが有ったので、これで仕事の8割は完了したも同然。
cpanのシェルを起動して
install WWW::Google::Pagerankで一発でインストールできたよ。
インスタンス作る時にプロキシの設定ができるようなので、こんなコードを書いたらランクが取得できた。
% cat ./pagerank.pl
use WWW::Google::PageRank;
my $pr = WWW::Google::PageRank->new(proxy => 'http://proxy.mycompany.co.jp:8080/');
print scalar($pr->get('http://blog.somethingnew2.com')), "\n";
この結果と対象URLをタブ区切りとかにして、Net::SMTP::OneLinerで送ればOKそう。やってみよう。
コメント