Perl：如何获得纪元时间

Question

我需要一种快速方法将日期＆＃34; Tue Jul 02 17:50:55 MDT 2024＆＃34; 转换为纪元时间。

实际上，我需要等效于date -d "Tue Jul 02 17:50:55 MDT 2024" +%s

的shell

我目前在perl中使用以下内容，但它需要大量转换。希望找到一个更简单，更优雅的解决方案。

$current_epoch = timelocal($seconds, $minute, $hour, $day_of_month, $month_num, $year)

我目前使用的是Perl 5.8;我不相信它有＆＃34; Time :: Piece＆＃34;
我只对不需要下载其他库的解决方案感兴趣

Answer 1

Date::Parse模块可以将日期时间戳记转换为纪元时间。通常，如果您需要执行某些操作，请在Comprehensive Perl Archive Network中搜索要处理的模块。搜索Stackoverflow是获得常见问题答案的另一种好方法。