用perl DateTime减去两个日期 [英] Subtracting two dates with perl DateTime

问题描述

我尝试彼此减去两个日期，但不幸的是没有成功。也许有人可以帮我一下。我的第一次尝试如下：

I try to subtract two dates from each other but unfortunately without success. Maybe someone could give me a hand. My first try looks like:

#!/usr/bin/perl -w
#use strict;
use warnings;
use DateTime;

$today = DateTime->now( time_zone => 'Europe/Berlin' );
$today = $today->ymd;

my $year = '2011';
my $month = '03';
my $day = '22';

my $dt1 = DateTime-> new (
                     year => $year,
                     month => $month,
                     day   => $day,
                     time_zone =>'Europe/Berlin'
                     );

my $mydate = $dt1->ymd;

my $sub = $today->subtract_datetime($mydate);

print "subtraction: $sub \n";

预先感谢。

推荐答案

一个问题似乎在这里：

$ today = $ today-> ymd;

它会覆盖对象，但是您想稍后使用它的方法。

It writes over object, but you want to use it's method later.

这篇关于用perl DateTime减去两个日期的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！