CmpTimes.pl

# For some reason there's no strtotime() equivalent in PERL's default install
# - this is a temp solution working for hh:mm.+d|dd.+mmm|mmmm.+yy|yyyy format{{perl}}
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];
	}