- 669 名前：デフォルトの名無しさん mailto:sage [2006/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;
}
