Perl：如何获得纪元时间

Question

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

实际上，我需要 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 ；我不相信它有“Time::Piece”
我只对不需要下载其他库的解决方案感兴趣

Answer 1

Date::Parse 模块可以将日期时间戳转换为纪元时间。一般来说，如果您有需要做的事情，请在Comprehensive Perl Archive Network 中搜索一个模块来处理它。搜索 Stackoverflow 是另一种获得常见问题答案的好方法。