如何以秒为单位获取日期差异,以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;