如何在 Perl 中将日期转换为纪元时间？

在 Perl 中，可以使用 Time::Piece 模块将日期转换为纪元时间。以下是一个简单的示例：

use Time::Piece;
use Time::Seconds;

# 将日期字符串转换为 Time::Piece 对象
my $date_str = '2022-01-01';
my $date = Time::Piece->strptime($date_str, '%Y-%m-%d');

# 将 Time::Piece 对象转换为纪元时间
my $epoch_time = $date->epoch;

print "日期 $date_str 对应的纪元时间为: $epoch_time\n";

在这个示例中，我们首先使用 Time::Piece->strptime 方法将日期字符串 '2022-01-01' 转换为 Time::Piece 对象。然后，我们使用 epoch 方法将 Time::Piece 对象转换为纪元时间。最后，我们打印出日期字符串和对应的纪元时间。

需要注意的是，Time::Piece 模块是 Perl 的内置模块，因此无需安装。但是，如果你的 Perl 版本较旧，可能需要安装 Time::Piece 模块。