取得したPage Rankをメールで送る

うごいた。

#!/usr/bin/perl
use WWW::Google::PageRank;
use Net::SMTP::OneLiner;

$PROXY = 'http://example.com:8080';
$Net::SMTP::OneLiner::HOSTNAME = "smtp.example.com";
$target_file = './pagerank_target.txt';
$mail_body = "URL\tPageRank\n";

$pr = WWW::Google::PageRank->new(proxy => $PROXY);

open IN, $target_file or die 'Open failed!';
while ($input = ){
    chomp($input);
    $result = scalar($pr->get($input));
    sleep(5);
    $mail_body .= $input . "\t" . $result . "\n"
}
close IN;

send_mail('me@example.com', 'you@example.com', "Google PageRank", $mail_body);

とりあえずデスクに置いてあるマシンでスケジューラーに登録しておこう。
送信頻度は~~嫌がらせのように~~毎週とかでいいかな？

【追記】
ドメインをexample.comに修正した