指定日の曜日を求めたい (Perl, Date::Simple)
ある日付が何曜日が調べたいがどうすれば良いだろうか？
Date::Simpleモジュールの機能を利用し、簡単に調べることが出来る。
以下のプログラムの実行には、Date::Simpleモジュールのインストールが必要となっている。
;#
;#指定日の曜日を取得する
;#
use Date::Simple;
#-- 2006年10月5日は何曜日？ --#
print getYoubi(2006, 10, 5);
#------------------------------------#
#曜日を求める
#------------------------------------#
sub getYoubi{
my $yyyy = shift;
my $mm = shift;
my $dd = shift;
my $date = Date::Simple::ymd($yyyy, $mm, $dd);
my @list = ('日','月','火','水','木','金','土');
return( $list[$date->day_of_week] );
}
○実行結果
木
localtimeの戻り値でも曜日を求めることができる。もしもtime値が判明しているようなら、通常はそちらを利用した方が良いだろう。なお、localtimeの戻り値も曜日の順番を返すが、この順番とDate::Simpleの順番は全く同じである。
