Date::Manip, Date_Cmp()

用于时间日期的比较：

#!/usr/bin/perl use strict; use Date::Manip; my $date1 = "Fri Jun  6 18:31:42 GMT 2003"; my $date2 = "2003/05/06"; my $flag=&Date_Cmp($date1,$date2); if($flag<0) {    print "date1 is earlier!\n"; } elsif($flag==0) {    print "the two dates are identical!\n"; } else {    print "date2 is earlier!\n"; } exit 0;