mieki256's diary

某氏から某おえかき掲示板のバックアップを頼まれて、どうせならPerlスクリプトでとれないものかと挑戦。まずは Windows 上で ActivePerl を使って。下のような感じに。

_oekakibkup.pl (スクリプト本体。.txtなので.plにリネーム)
_urllist.txt (URLリストファイルの例)

 perl oekakibkup.pl urllist.txt

みたいな。走らせたときの日付でフォルダを作成して、URLリストファイルで指定されたページと、そのページ内で <img src="〜"> されてる画像を保存する。

画像ファイルのURL抽出は、件の掲示板のhtml記述に特化。取得ページの保存ファイル名は、某氏からもらったバックアップファイル群に沿った形に。

画像取得がちゃんとできるのか不安だったけど。一応、Mozilla Firefox で見る限りは、画像表示できてるみたいだし。たぶん大丈夫だろう…。

後は自宅サーバに転送して、cron 指定しとけばいいかしら。でもコレ、対象ページを取得できない場合はどうなるのか、ちと不安ではあるなぁ。うーむ。