06/12/06 16:19:01
>>668
じゃあ雛型だけ。あとは getbbs() と sendmail() を作れば完成だ。がんばれ。
#!/usr/bin/perl -w
use strict;
my $olddata;
for (;;) {
# 掲示板の内容を取得する。
my $data = getbbs();
if (defined($olddata) && $data ne $olddata) {
# メールを送信する。
sendmail($data);
}
$olddata = $data;
sleep 60 * 10;
}