#!/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; |
by: 发表于:2017-09-12 14:53:21 顶(0) | 踩(0) 回复
??
回复评论