Re: Get day of week from current date

[Cristoforo]

A solution using Date::Simple.

#!/usr/bin/perl
use strict;
use warnings;
use 5.014;
use Date::Simple qw/ date today /;

my $dow = date('2002-02-21');
say $dow->day_of_week, ' ', $dow->strftime("%A");
$dow = today;
say $dow->day_of_week, ' ', $dow->strftime("%A");

Prints

4 Thursday
1 Monday