【发布时间】：2013-03-14 09:24:45
【问题描述】：
Perl 时间函数很棒，但是我如何找到今天的最小 epoch 值？由于纪元以秒为单位，我想有许多纪元值对应于给定的一天。如何找到我所在时区的最低时区？
【问题讨论】：
-
使用某种形式的
localtime函数，并传入当天的午夜？
【发布时间】：2013-03-14 09:24:45
【问题描述】：
timelocal 的使用不受支持，但使用它来获取所需信息应该没有问题。
use Time::Local qw( timelocal );
my $epoch = timelocal(0,0,0, (localtime)[3,4,5]);
- 我不知道任何一天有两个午夜的时区，所以我无法对其进行测试。
- 我测试了一个没有午夜的时区（2013 年 10 月 20 日在美国/圣保罗），它运行良好。
【讨论】：
-
如果您需要 100% 到秒的准确度，闰秒可能很重要（他们会在午夜添加它们，所以您会得到像“23:59:60”这样的时间。（我不确定Perl 和/或各种操作系统如何计算闰秒。）
-
@bigiain，正如您所展示的，它们是在 午夜之前添加的，因此不会影响答案。
-
我的本地 Perl（Mac OS X 10.6.8 上的 5.10.0）显示在 20120630235958、20120630235959、20120701000000 和 20120701000001 和 20120701000001 之间单调增加的纪元值（在 206302 处）。如果我在 2012 年 7 月 1 日星期日 00:00:00 询问它的纪元，它会说 1341100800 - 我很确定技术上是 2012 年 6 月 30 日星期六的 23:59:60。（也许是操作系统和/或 POSIX和/或我的 C 库和/或 Perl 在 20120630235960 时表现不同？）