Perl～年、月、日から簡単に曜日を出す方法

Perlで、入力された年月日から簡単に曜日がわかるといいなぁと思いまして、探してみたらこんなのがありました。

Time::DayOfWeek

使い方も簡単でした。

まずは、

use Time::DayOfWeek qw(:day);

２０２１年４月４日の曜日を取得してみます。ちなみに答えは「日曜日」

my ($year, $month, $day) = (2021, 4, 4);

my ($w);　# 曜日が入る変数

◆日曜日の意味の「０」を取得する場合

$w = DoW($year, $month, $day);

print “$w”;

＞０

◆「sun」という文字が返ってくるパターン

$w = Dow($year, $month, $day);

print “$w”;

＞sun

◆「sunday」 という文字が返ってくるパターン

$w = DayOfWeek($year, $month, $day);

print “$w”;

＞sunday

◆事前に曜日の呼び名を宣言しておくと、その文字に置き換わってくれます

DayNames(‘日’, ‘月’, ‘火’, ‘水’, ‘木’, ‘金’, ‘土’);

$w = Dow($year, $month, $day);

print “$w”;

＞日

実際にはこんな感じになります