Help for this page

Select Code to Download


  1. or download this
    my @sorted =
   map substr($_, 8),
   sort
   map join('', (/(..)-(..)-(....)/)[2,1,0], $_),
   @dates;  # DD-MM-YYYY
  2. or download this
    my @sorted =
   sort {
...
      join('', ($b =~ /(..)-(..)-(....)/)[2,1,0])
   }
   @dates;  # DD-MM-YYYY
  3. or download this
    my @sorted =
   map $_->[0],
   sort { $a->[1] cmp $b->[1] }
   map [ $_, join('', (/(..)-(..)-(....)/)[2,1,0]) ],
   @dates;  # DD-MM-YYYY