比较perl中的时间而不使用模块

Question

我试图比较两个时间戳,看看哪一个是最新的,如果我可以使用DateTime模块,这将很容易,但不幸的是我没有权限在服务器上安装任何模块,因此我只限于本机Perl命令.

时间的格式为"MM/DD/YYYY hh:mm:ss".

Answer 1

如果您首先YYYY/MM/dd hh:mm:ss使用以下代码将时间转换为格式:

my ($date, $time) = split(/\s+/, $val);
my ($m, $d, $y) = split(/\//, $date);
$val = sprintf("%04d/%02d/%02d %s", $y, $m, $d, $time);

然后,您可以在日期上使用标准的词法比较.