IDに車メを出したら神ﾃﾞﾅｲﾉ!!復活その33

もったいぶる程の内容ではないので、簡易バージョンをここにそのまま載せるね。

ちなみに動作条件は
LWP::Simple が使えること
SUEXEC が導入されていること（CGI がユーザー権限で実行できること）

次の書き込みの内容をそのままコピペして、rotation.cgi のようなファイル名で保存。
"images" というディレクトリーを作成。

それからその cgi を crontab か、GAE-Cron のようなサービスで120分おきにアクセスしてもらう。
以上です。

むっ

#!/usr/bin/perl

# 取得する画像の URL
$url = "";

($sec, $min, $hour, $day, $mon, $year) = localtime(time);
$year += 1900;
$mon++;
$filename = sprintf("./images/$year-%02d-%02d_%02d-%02d.jpg", $mon, $day, $hour, $min);


# 画像を取得
use LWP::Simple;
&getstore($url, $filename);

exit;