怎样使用perl实现日期转换相减求天数。。。谢谢~

yangjavine

第一种情况：时间格式是yyyymmdd
例：今天是20110510，然后我输入一个时间，如20110605，计算是相差26天，但是用awk怎么实现计算两个时间日期之间相差26天？（5月有31日）

第二种情况：时间格式是yyyymmddhhmmss
例：今天是20110510000000，然后我输入一个时间，如20110605000000，计算是相差26天，但是用awk怎么实现计算两个时间日期之间相差26天？（5月有31日）

请各位大侠支招，谢谢~

iamlimeng

Date::Calc

用这个模块。

yangjavine

HP机器没有这个模块，而且不能在系统上随便加模块，所以有没有不加模块能实现的脚本

iamlimeng

我倒是自己写过一个函数，计算两个日期间的差，但我不能给你，因为是刚学PERL时写的，算法太低级，拿不出手。

你自己写吧，很容易的。

Cu_fans

1. use POSIX qw(mktime);
   
2. use POSIX qw(difftime);
   
3. 
   
4. $year = 2011 - 1900;
   
5. $mon = 5 - 1;
   
6. $mday = 10;
   
7. $sec  = 00;
   
8. $min  = 00;
   
9. $hour = 00;
   
10. my $start = mktime ($sec,$min,$hour,$mday,$mon,$year);
    
11. 
    
12. 
    
13. $year = 2011 - 1900;
    
14. $mon = 6 - 1;
    
15. $mday = 5;
    
16. $sec  = 00;
    
17. $min  = 00;
    
18. $hour = 00;
    
19. my $end = mktime ($sec,$min,$hour,$mday,$mon,$year);
    
20. 
    
21. my $result = difftime($end, $start);
    
22. print $result/(24*60*60),"\n";

复制代码

#perl  t
26