Re^2: Challenge: sort weekdays in week-order (Time::Piece)

FWIW

> 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]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^2: Challenge: sort weekdays in week-order (Time::Piece) Select or Download Code

Replies are listed 'Best First'.
Re^3: Challenge: sort weekdays in week-order (Time::Piece) by choroba (Cardinal) on Jul 22, 2022 at 12:48 UTC
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]`	[reply] [d/l]
Re^4: Challenge: sort weekdays in week-order (Time::Piece) by LanX (Saint) on Jul 22, 2022 at 13:00 UTC
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}	[reply] [d/l] [select]