Date::Manip, Date_Cmp()

最新推荐文章于 2025-12-13 10:29:13 发布

转载最新推荐文章于 2025-12-13 10:29:13 发布 · 1k 阅读

Perl 专栏收录该内容

35 篇文章

订阅专栏

本文提供了一个使用Perl语言进行日期比较的示例程序。通过该程序可以了解如何使用Date::Manip模块来比较两个不同格式的日期，并判断它们的先后顺序。

用于时间日期的比较：

#!/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;