連番のＨ画像/動画を一気にダウンロードする6

[0216 名無しさん＠お腹いっぱい。 2013/03/24(日) 19:10:10.26]

!!resume.txtが作成された場合、
proxy.vbsと同じ場所に移動しproxy.vbs実行させる
とあるから仕様としたけど

### キューリスト処理失敗時のレジューム用ログを記録するファイル
my $defaultResumeLogFile = "resume_".EHG::Util::getFormattedLocalTime().".txt";

### 現在時刻をフォーマットされた文字列として返す
sub getFormattedLocalTime{
use Time::HiRes;
my ($sec2, $microsec) = Time::HiRes::gettimeofday;

my( $sec, $min, $hour, $day, $month, $year) = localtime ( time );
$month = $month+1;
$year = $year+1900;
my $s = sprintf("%04d%02d%02d%02d%02d%02d%06d", $year, $month, $day, $hour, $min, $sec, $microsec);
return $s
}

のようにして自分は"../$resumeLogFile"にしちゃってる