perl - 如何在 perl 中以秒为单位获取日期差异

Question

我有两个日期，(它们是日期时间对象)。

我怎样才能得到这两个日期之间的差异，以秒为单位？

my $givenDate1 =  DateTime->new(
      year       => 1982,
      month      => 10,
      day        => 25,
      hour       => 7,
      minute     => 19,
      second     => 35,

      time_zone  => 'UTC',
  );
my $givenDate2 =  DateTime->new(
      year       => 1982,
      month      => 10,
      day        => 25,
      hour       => 7,
      minute     => 20,
      second     => 50,

      time_zone  => 'UTC',
  );

它应该返回时差为 75 秒

Answer 1

say $givenDate2->epoch - $givenDate1->epoch;