perl - 未来日期减去现在 = 天数 perl

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 ago\n" :
   $dt > $ref ? "$days days from now\n" :
   "today\n");

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)