指定日の曜日を求める(Date::Simple) - Perl

この記事は2006年10月11日に書かれたものです。

ある日付が何曜日が調べたいがどうすれば良いだろうか? 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の順番は全く同じである。

関連書籍

failed to fetch data: unkown error

Joseph N. Hall, Joshua…
ISBN 4798139815
¥ 4,104

failed to fetch data: unkown error

コメント

コメントを入力. Wiki文法が有効です:
T C S B U