Perl 格式化日期：Manip'；s三角洲至天

我有这个惯例

我想保存该增量以计算从到对中所有到和从之间的天数 在二维数组中，我只需要工作日

表示赞成

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

    }

}

---

要检索增量值，必须使用以下命令：

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

wich给出了一个由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();

wich给出了一个字符串，其中7个元素以冒号分隔：

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

---

它有，但不是人类可读的增量是Date:：Manip:：delta=HASH（0xa0b9db0）（每次运行ofc时的差异地址），这意味着它是（对）Date:：Manip:：delta对象的引用。你可以在网上找一些关于这个的文档