未来日期减去现在=天数

Question

新手。抱歉，提前谢谢你。我有一个未来的约会

(ie:2013-06-09 / $fields[12])

我今天需要做减法

(ie:2013-03-08)

获取剩余天数。

Answer 1

我将使用DateTime。如果您以字符串形式开始日期，您可以使用DateTime::Format::Strptime来解析它。

use DateTime                   qw( );
use DateTime::Format::Strptime qw( );
my $format = DateTime::Format::Strptime->new(
    pattern   => '%Y-%m-%d',
    time_zone => 'local',
    on_error  => 'croak',
);
my $ref  = DateTime->today( time_zone => 'local' );
my $dt   = $format->parse_datetime('2013-06-09');
my $days = $ref->delta_days($dt)->in_units('days');
print(
   $dt < $ref ? "$days days agon" :
   $dt > $ref ? "$days days from nown" :
   "todayn");

Answer 2

使用日期时间模块:

use DateTime;
my $d1 = DateTime->new(
      year       => 2013,
      month      => 9,
      day        => 6
);
my $d2 = DateTime->now;
my $diff = $d2->delta_days($d1);
print $diff->delta_days, "n";  # 182 (from 8/3/2013)