use Time::Local; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); ($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($time); @wdays = ("日","月","火","水","木","金","土"); print "$year年$mon月$mday日は、" . $wdays[$wday] . "曜日です。\n";
use Time::Local; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); ($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($time); @wdays = ("日","月","火","水","木","金","土"); print "$year年$mon月$mday日は、" . $wdays[$wday] . "曜日です。\n";
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く