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
    #!/usr/bin/perl --
use strict;
...
}

__END__
  3. or download this
    dates $VAR1 = [
          '08-15-2011',
...
        ];