Perl 中的纪元时间

您可以在 Perl 中使用 time() 函数获取纪元时间，即从一个特定日期开始经过的秒数，在 Unix 中该日期为 1970 年 1 月 1 日。

示例

 在线演示

#!/usr/local/bin/perl
$epoc = time();
print "Number of seconds since Jan 1, 1970 - $epoc\n";

输出

执行上述代码时，将产生以下结果 -

Number of seconds since Jan 1, 1970 - 1361022130

您可以按照以下方法将给定的秒数转换为日期和时间字符串 -

示例

 在线演示

#!/usr/local/bin/perl
$datestring = localtime();
print "Current date and time $datestring\n";
$epoc = time();
$epoc = $epoc - 24 * 60 * 60;    # one day before of current date.
$datestring = localtime($epoc);
print "Yesterday's date and time $datestring\n";

输出

执行上述代码时，将产生以下结果 -

Current date and time Tue Jun 5 05:54:43 2018
Yesterday's date and time Mon Jun 4 05:54:43 2018

更新日期：2019-11-29

7K+ 浏览量

开启你的 职业生涯

完成课程获取认证

开始
广告