#!/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) 回复
??
回复评论