Help for this page

Select Code to Download


  1. or download this
    use 5.010;  # say
use strict;
...
      sort
      map { $lookup{ my $s = ParseDateString($_) } = $_; $s }
      @dates;
  2. or download this
    use 5.010;  # say
use strict;
...
      sort
      map ParseDateString($_).$_,
      @dates;
  3. or download this
    use 5.010;  # say
use strict;
...
$_ = ParseDateString($_).$_ for @dates;
@dates = sort @dates;
say substr($_, 16) for @dates;