ある日付が一体何曜日なのか知りたいと思うことはありませんか? 計算で求めなくても、Perlの2つの関数を使えば、西暦で日付を指定するだけで曜日を得ることができます。
#! /usr/bin/perl
use Time::Local;
# 曜日を割り出したい日付を指定 $year = 2010; $mon = 7; $mday = 15;
# エポック秒に変換 $time = timelocal(0, 0, 0, $mday, $mon - 1, $year);
#timelocal関数で西暦をエポック秒に変換し、localtime変数で各種日付情報に戻します。その際、曜日情報も得られます。 # それを日付情報に変換 (undef,undef,undef,undef,undef,undef,$wday,undef) = localtime($time); # 曜日表示用の配列 @wdays = ("日","月","火","水","木","金","土"); # 結果を表示 print "$year年$mon月$mday日は、" . $wdays[$wday] . "曜日です。\n"; exit;
猫の手 高室(たかむろ) |