Perl 人类可读时间（以毫秒为单位）到 EPOCH

Question

我正在解析 SIP 消息，我们需要在人类可读部分（即 2011/09/08 00:10:17.997）中包含毫秒，我们需要使用 Perl 将它们转换为纪元时间，我发现了一堆使用 Human 的示例Epoch可读，但不包括毫秒，这可能吗？我在 CPAN 中找到了 DateTime 但安装时遇到问题。所以寻找其他选择： 示例

$epoch = convert(2011/09/08 00:10:17.997)
print $epoch

和打印：1315183552

Answer 1

修复系统中阻止您安装模块的任何问题。

除此之外，大纪元时间只有第二个分辨率。去掉毫秒并使用 Time::Local 进行转换（您需要解析您的自己发送 SIP 消息）

$timestamp = "2011/09/08 00:10:17.997";
$timestamp =~ /(\d{4})\/(\d{2})\/(\d{2}) (\d{2}):(\d{2}):(\d{2})/;

# ($sec,$min,$hour,$mday,$mon,$year);
$epoch = timelocal($6, $5, $4, $3, $2 - 1, $1 - 1900);

如果确实很重要，请使用毫秒舍入秒。

Answer 2

如果你在 Linux 下，又快又脏：

$epoch = `date -d "2011/09/08 00:10:17.997" +%s`; print $epoch;