perl - 以秒为单位的时差

Question

在 Perl 程序中，我有一个包含日期/时间的变量，格式如下:

Feb 3 12:03:20  

我需要确定该日期是否超过 x 秒(基于当前时间)，即使这发生在午夜(例如 Feb 3 23:59:00 当前时间 = Feb 4 00:00:30 )。

我发现的 perl 日期/时间信息令人难以置信。
据我所知，我需要使用 Date::Calc ，但我没有找到秒增量。
谢谢 :)

Answer 1

#!/usr/bin/perl

my $Start = time();
sleep 3;
my $End = time();
my $Diff = $End - $Start;

print "Start ".$Start."\n";
print "End ".$End."\n";
print "Diff ".$Diff."\n";

这是一种以秒为单位查找时差的简单方法。