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

ある日付が何曜日が調べたいがどうすれば良いだろうか？
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] );
}