Perl的时间处理

http://blog.csdn.net/zhangxinrun/article/details/5886950

1)

Date::Calc这里是冠军模块： use strict; use warnings; use Date::Calc qw(Add_Delta_YMD); my $startDate = '2000-01-01'; my ($startYear, $startMonth, $startDay) = $startDate =~ m/(/d-(/d)-/d)/; # 1 year, 2 months, 3 days, after startDate my $endDate = join('-', Add_Delta_YMD($startYear, $startMonth, $startDay, 1, 2, 3)); 该模块有一个时间转换例程数量庞大，特别是那些三角洲处理。 DateTime和Date::Manip还值得检查。

 

2)

见perldoc POSIX为函数mktime() 。 它将帮助您转换的日期和时间到一个简单的数字，这是UNIX时间（1月1日以来的秒数数字，1970年，我相信）。然后，只需减去3（天）24倍（在1小时）60倍（以1小时分钟）60次（在一分钟秒），或259200从这个数字秒，并使用localtime()转换的秒数返回一个字符串表示形式。 这可能是最好的解决办法*，因为它将处理的月份和年份自动改变。任何其他的解决方案将可能最终会被更多的检查后，看看我们跑出天1个月，或跑了几个月，一年保理复杂。   编辑：*之外的回顾CPAN 。

 

3)

日期：：计算器可用于这些计算： #!/usr/bin/perl use strict; use warnings; use Date::Calc qw(Add_Delta_Days); my ( $yyyy, $mm, $dd ) = ( 2009, 9, 2 ); my @date = Add_Delta_Days( $yyyy, $mm, $dd, -3 ); print join( '-', @date );

 

4)

有这么多的选择，这是适度的尴尬。它在某种程度上取决于什么其他计算，您可能需要在未来，以及是否和时区的时间永远是一个因素，以及类似的东西。 你可以看看这些任何 Date::Calc Date::Manip DateTime::* -又见datetime.perl.org （ 尽管该网站似乎没有作出回应关于2009 - 09 - 01T22 :30 - 07：00） 是名副其实的三（套）模块。我建议DateTime或为了简单 - 但是，如果你将需要获得在将来，憧憬模块可能会更好。

 

5)

整洁的事情了mktime是它处理任何偏移时间。它使用1月= 0;和2009年= 109这个计划。因此，印月 - 1和全年 - 1900。 use POSIX qw<mktime>; my ( $year, $month, $day ) = split &apos;-&apos;, $date; my $three_day_prior = mktime( 0, 0, 0, $day - 3, $month - 1, $year - 1900 ); mktime( 0, 0, 0, 0, $month, $year - 1900 ); 可用于发现该月的最后一天为好。你只去一天下个月0。

 

6)

这是简单， Date::Simple C:/>perl -MDate::Simple=today -e "print today()-3" 2009年8月30日

 

7)

DateTime的是典型的现代方式的Perl处理日期： use DateTime; my ($year, $month, $day) = split '-', '2009-09-01'; my $date = DateTime->new( year => $year, month => $month, day => $day ); $date->subtract( days => 3 ); # $date is now three days earlier (2009-08-29T00:00:00) / I3az /

 

---------------------------------------------------------------------------------

Simply using POSIX::mktime with tricks.

sample code:

1. use POSIX qw(mktime);
2. 
   
3. my $date = ''200907;
4. my ($year, $month) = (substr($date,0,4), substr($date,4,2));
5. 
   
6. # mktime(sec, min, hour, mday, mon, year, wday=0, yday=0, isdst=-1)
7. # perldoc POSIX  -- to see more details
8. 
   
9. # get time from the last day
10. my $lastday_time = POSIX::mktime(
11.     0, 0, 0,
12.     0, $month, $year-1900,    # Tricks: set mday=0, mon (0=Jan.,,,11=Dec.)
13.     0, 0, -1
14. );
15. 
    
16. # get the string of the lasytday
17. my $lastday = (localtime($lastday_time))[3];
18. print $year. $month. $lastday. "/n";