I was trying something similar but I easily get annoyed by strptime et similia...

Infact even with your code I hit Error parsing time at C:/perl5.26.64bit/perl/lib/Time/Piece.pm line 581.

I'd modify your code to be even more stable, in the case they accept my proposal for 8 days week, adding Lokiday as jolly day free for all :D

my %order = map {
    split ' ', 'Time::Piece'->strptime("$_", "%d")->strftime('%A %u')
} Time::Piece::day_list();
[download]

bliako: your solution is already elegant, readable and perlish: dont overcomplicate :)

L*

> even with your code I hit Error parsing time at C:/perl5.26.64bit/perl/lib/Time/Piece.pm line 581.

That's weird, I'm running it without errors on 5.26.1 (Time::Piece 1.31).

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

I remebemer weird results from strptime and strftime on windows but atm I cannot find the thread, I'll msg you and update the thread if i find something

This is perl 5, version 26, subversion 0 (v5.26.0) built for MSWin32-x
+64-multi-thread

$Time::Piece::VERSION 1.3201
[download]

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

> perl -de0

  DB<38> use Time::Piece 

  DB<39> x Time::Piece::day_list
0  'Sun'
1  'Mon'
2  'Tue'
3  'Wed'
4  'Thu'
5  'Fri'
6  'Sat'
  DB<40> x @{Time::Piece::_get_localization->{weekday}}
0  'Sunday'
1  'Monday'
2  'Tuesday'
3  'Wednesday'
4  'Thursday'
5  'Friday'
6  'Saturday'
[download]

And if you don't like the traditional order

  DB<41> @W = @{Time::Piece::_get_localization->{weekday}}

  DB<42> push @W, shift @W

  DB<43> x @W
0  'Monday'
1  'Tuesday'
2  'Wednesday'
3  'Thursday'
4  'Friday'
5  'Saturday'
6  'Sunday'
  DB<44>
[download]

Hmm... Not present in 5.26.1, works but not documented in 5.37.1. I'm not sure I'd use it.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

oh I see _get_localization is new in Time::Piece

I just needed it anyway only to access the private

my @FULLDAY_LIST = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);

There are some (ugly) hacks to get it directly tho ...

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery}