Re: sorting mm/dd/yy

[Hot Pastrami]

If you're stuck with that lousy date format, something like this could work for your sorting sub:

sub sortDates {
    my ($month1, $day1, $year1) = split /\//, $a;
    my ($month2, $day2, $year2) = split /\//, $b;
    $year1 += 1900 if $year1 < 50;
    $year2 += 1900 if $year2 < 50;
    $year1 <=> $year2
        or
    $month1 <=> $month2
        or
    $day1 <=> $day2;
}

...however this assumes that none of the dates are older than 1950... you may need to adjust the '50' to fit your values.

Alan "Hot Pastrami" Bellows