#! /usr/bin/perl use Time::Local; # 曜日を割り出したい日付を指定 $year = 2004; $mon = 2; $mday = 18; # エポック秒に変換 $time = timelocal(0, 0, 0, $mday, $mon - 1, $year); # それを日付情報に変換 (undef,undef,undef,undef,undef,undef,$wday,undef) = localtime($time); # 曜日表示用の配列 @wdays = ("日","月","火","水","木","金","土"); # 結果を表示 print "$year年$mon月$mday日は、" . $wdays[$wday] . "曜日です。\n"; exit;