Help for this page

Select Code to Download

Select or download this

use Date::Manip qw(ParseDate Date_Cmp);

sub sortDate {
...
             "Thu 15 Aug 96");

my @i = sort &sortDate @dates;

Select or download this

my @i = sort { 
            &Date_Cmp(&ParseDate($a),&ParseDate($b)) 
        } @dates;