内容

名称
概要
描述
方法
作者
版权和许可
错误

#名称

Time::Seconds - 一个简单的 API 用于将秒转换为其他日期值

#概要

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

my $t = localtime;
$t += ONE_DAY;

my $t2 = localtime;
my $s = $t - $t2;

print "Difference is: ", $s->days, "\n";

#描述

此模块是 Time::Piece 发行版的一部分。它允许用户查找给定秒数中的分钟数、小时数、天数、周数或年数。它在您对两个 Time::Piece 对象进行增量运算时由 Time::Piece 返回。

Time::Seconds 还导出以下常量

ONE_DAY
ONE_WEEK
ONE_HOUR
ONE_MINUTE
ONE_MONTH
ONE_YEAR
ONE_FINANCIAL_MONTH
LEAP_YEAR
NON_LEAP_YEAR

由于 perl 尚未（？）支持常量对象，因此这些常量仅以秒为单位，因此您无法例如执行以下操作：print ONE_WEEK->minutes;

#方法

以下方法可用

my $val = Time::Seconds->new(SECONDS)
$val->seconds;
$val->minutes;
$val->hours;
$val->days;
$val->weeks;
$val->months;
$val->financial_months; # 30 days
$val->years;
$val->pretty; # gives English representation of the delta

这些对象也支持常见的算术运算（+、-、+=、-=）。

这些方法假设一天有 24 小时，一周有 7 天，一年有 365.24225 天，一年有 12 个月。（来自日历常见问题解答 http://www.tondering.dk/claus/calendar.html）

#作者

Matt Sergeant，[email protected]

Tobias Brox，[email protected]

Balázs Szabó (dLux)，[email protected]

#版权和许可

本模块是自由软件，您可以根据与 Perl 相同的条款分发它。

#错误

目前，出于清晰度的考虑，这些方法的效率并不高。这可能不是一个好主意。