Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるスクリプトを作るスレ at TECH

669:デフォルトの名無しさん
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;
}

次ページ

続きを表示

1を表示