perl日期计算

iamlimeng

用Time::Local写了个例子供大家参考，Time::Local是PERL自带的模块，不需要额外安装，直接调用即可。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Time::Local;
   
6. 
   
7. my $date = "2011-07-26";        #注意输入格式
   
8. my $change = 18;
   
9. my $date_new = date_calculate($date,$change);
   
10. print "$date_new\n";
    
11. 
    
12. $change = -5;
    
13. $date_new = date_calculate($date,$change);
    
14. print "$date_new\n";
    
15. 
    
16. <STDIN>;
    
17. 
    
18. 
    
19. sub date_calculate {
    
20.         my ($date,$change) = @_;
    
21.          my ($y,$m,$d) = split('-',$date);
    
22.          my $time = timelocal(0,0,0,$d,$m,$y);
    
23.          $time += $change*24*60*60;
    
24.          my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime($time));
    
25.         $year += 1900;
    
26.         return("$year-$mon-$day");
    
27. }

复制代码