Perl 教程 之 Perl 时间日期 5

Perl 时间日期

新纪元时间(Epoch Time)

我们可以使用 time() 函数来获取新纪元时间，该函数返回从1970年1月1日起累计的秒数。实例如下：

实例

!/usr/bin/perl

$epoc = time();

print "从1970年1月1日起累计的秒数为：$epoc\n";
以上实例执行输出结果为：

从1970年1月1日起累计的秒数为：1465702883
我们可以输出一个我们想要的时间格式：

实例

!/usr/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "当期时间和日期：";
printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec);

print "\n";

$epoc = time();
$epoc = $epoc - 24 60 60; # 一天前的时间秒数
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($epoc);
print "昨天时间和日期：";
printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec);

print "\n";
以上实例执行输出结果为：

当期时间和日期：2017-3-15 12:47:54
昨天时间和日期：2017-3-14 12:47:54