怎樣使用perl實(shí)現(xiàn)日期轉(zhuǎn)換相減求天數(shù)。。。謝謝~

yangjavine

第一種情況：時(shí)間格式是yyyymmdd
例：今天是20110510，然后我輸入一個(gè)時(shí)間，如20110605，計(jì)算是相差26天，但是用awk怎么實(shí)現(xiàn)計(jì)算兩個(gè)時(shí)間日期之間相差26天？（5月有31日）

第二種情況：時(shí)間格式是yyyymmddhhmmss
例：今天是20110510000000，然后我輸入一個(gè)時(shí)間，如20110605000000，計(jì)算是相差26天，但是用awk怎么實(shí)現(xiàn)計(jì)算兩個(gè)時(shí)間日期之間相差26天？（5月有31日）

請(qǐng)各位大俠支招，謝謝~

iamlimeng

Date::Calc

用這個(gè)模塊。

yangjavine

HP機(jī)器沒有這個(gè)模塊，而且不能在系統(tǒng)上隨便加模塊，所以有沒有不加模塊能實(shí)現(xiàn)的腳本

iamlimeng

我倒是自己寫過一個(gè)函數(shù)，計(jì)算兩個(gè)日期間的差，但我不能給你，因?yàn)槭莿倢W(xué)PERL時(shí)寫的，算法太低級(jí)，拿不出手。

你自己寫吧，很容易的。

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";

復(fù)制代碼

#perl  t
26