CmpTimes.pl

<perl>

1. For some reason there's no strtotime() equivalent in PERL's default install
2. - this is a temp solution working for hh:mm.+d|dd.+mmm|mmmm.+yy|yyyy formatOur Perl scripts.

sub cmpTimes { my @times = @_; my $i = 0; for (@times) { for my $m ('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec') { s/$m\w*/$i%12+101/ie; $i++; } s/^\D*(\d\d):(\d\d)\D+(\d+)\D+(\d\d\d)\D+(\d\d)\D*$/20$5$4$3$1$2/g; s/^\D*(\d\d):(\d\d)\D+(\d+)\D+(\d\d\d)\D+(\d\d\d\d)\D*$/$5$4$3$1$2/g; } return $times[1] > $times[0] ? -1 : $times[0] > $times[1]; } </perl>