2012-02-08 28 views
0

我有這個程序,格式化日期:: MANIP的三角洲天

我想保存三角洲之間的所有天數,並從天在從對對 我有2維數組,我只需要工作日。

說爲

$date_from = 2012-02-09; 
$date_to = 2012-02-13; 
$delta_string = 4 

sub calc_usage { 
    use Date::Manip::Date; 

    my $date_from; 
    my $date_to; 
    my $delta; 

    my $i; 
    for $i (0 .. $#DATE_HOLDER) { 
     $date_from = new Date::Manip::Date; 
     $date_to = new Date::Manip::Date; 

     $date_from->parse($DATE_HOLDER[$i][0]); 
     $date_to->parse($DATE_HOLDER[$i][1]); 

     $delta = $date_from->calc($date_to, "business"); 

    } 

} 
+0

它確實,但它不是人類可讀的增量是日期:: MANIP ::德爾塔= HASH(0xa0b9db0)(差異地址上的每個運行ofc) – Recct 2012-02-08 14:20:34

+0

這意味着它是(引用到)Date :: Manip :: Delta對象。你可以在http://metacpan.org上找到關於這方面的文檔 – zgpmax 2012-02-08 17:05:06

回答

2

要檢索增量值,則必須使用folllowing:

my @val = $delta->value(); 

至極給出7個元件的陣列,其中:

$val[0] holds years 
$val[1] holds months 
$val[2] holds weeks 
$val[3] holds days 
$val[4] holds hours 
$val[5] holds minutes 
$val[6] holds seconds 

你也可以在標量環境中使用它:

my $val = $delta->value(); 

至極給出具有相同的7個元素冒號分隔的字符串:

years:months:weeks:days:hours:minutes:seconds