特定の曜日（木曜日）ならシャットダウンする。

Windows XPで，Perlのある場所で実行すると，特定の曜日ならシャットダウンします。
パソコン本体のBIOSに，設定した時間で電源が入る機能があります。
ですが，毎日起動する設定しかない機種が大半です。
なので，起動してほしくない曜日を設定し，朝9時起動なら朝9時15分にタスクに入れて実行すれば，その曜日はすぐにシャットダウンされます。



#特定の曜日（木曜日）ならシャットダウンする。
#2008.11.23

#午前８時台のときのみ、シャットダウンするように条件を追加
#（自動起動が８時半で、木曜日に使用したいときもあるから）
#2008.12.18


($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
# $wdayの番号に対応する曜日(0は日，1は月)　日月火水木金土;
# 木曜日は4

if($wday == 4 && $hour == 8)
{
print "シャットダウンを開始します。";
$qx_command = "shutdown -s -f -t 300";
qx{ $qx_command };
}