Perl 6 的时间,日期类已经非常和 Javascript 的类似了,都特别的愚化。Perl 6 对应1个role(角色)和4个class(类)
下面举例说明
Date 日期类
#####支持的操作符
==, <, <= , >, >=, !=, eq, lt, le
####方法
$date = Date.new(YEAR, MONTH, DAY, FORMATTER?)
$date = Date.new(year => YEAR, month => MONTH?, day => DAY?,FORMATTER?)
$date = Date.new(YYYY-MM-DD,FORMATTER?)
$date = Date.new(now,FORMATTER?)
$date = Date.new(DateTime.now,FORMATTER?)
#字符串,Pair,Positional 都可以指定日期
.today(:&formatter)
#返回 Date object,并不是字符串,
.today.Str
.later(DELTA)
.earlier(DELTA)
# 例如 Date.new('2015-12-24').later(:2years).later(days => 2)
#DELTA单位可以是 day(s), week(s), month(s), year(s)
#也可以使用 Pair
#几天/年/月/周 之后或之前
.truncated-to(UNIT)
# UNIT 可以是 year,month,week
#截取时间到当前 year 的第一天,当前 month 的第一天,当前 week 的第一天
#自加一天,自减一天
.succ
.pred
#都是YYYY-MM-DD格式的字符串
.Str
.gist
#### 子程序和函数
sleep($seconds)
#sleep 多少秒,可以不是整数
sleep-timer($seconds)
#返回中断时距离结束还剩多少秒,返回 Duration 类型
sleep-until($until)
DateTime
# 构造器
DateTime.new(Y, m, d, H, M, S,
TZ?, :&formatter)
DateTime.new(DateObj, H, M, S, TZ?,
:&formatter)
DateTime.new(year=>Y, month=>m, day=>d, hour=>H, minute=>M, second=>S, timezone=>TZ, :&formatter)
DateTime.new(INSTANT, TZ?, :&formatter)
DateTime.new(TIMESTAMP, TZ?, :&formatter)
DateTime.new(FORMAT, TZ?, :&formatter)
#和 Date 基本一样,字符串,Pair,Positional 都可以指定日期时间
# 字符串格式:
# yyyy-mm-ddThh:mm::ssZ
# yyyy-mm-ddThh:mm:ss+0100
.now(TZ?,:&formatter)
#返回当前时区的 DateTime object
.clone()
#可以对 year,month,day,hour,minute,second,tz,formatter 进行修改返回
#格式和 .new 一样,也可以用 Pair
# 获取器
.hour
.minute
.second
.whole-second
.timezone
.offset
.offset-in-minutes
.offset-in-hours
.posix($ignore-timezone) #seconds since the Epoch
#下面的和 Date 一样
.later(*%unit)
.earlier(*%unit)
.trauncated-to($unit)
#格式转换
.Str #返回的格式根据 formatter 变
.Instant
.Date
# 时区转换
.utc #时区更改成 UTC,time 相应改变
.local #时区更改为$*TZ(本地时区)
Dateish角色
# 获取器
.year
.month
.day
.day-of-month
.formatter
.is-leap-year
.day-of-week #1 Monday 7 Sunday
.day-of-year
.days-in-month(year?,month?) #一个月的天数
.week #返回 year,weekNumber List
.week-number # 1-53
.week-year #按 week 分,多的天算给前一年或下一年的那一周
.weekday-of-month #这个月的第几个星期几
.yyyy-mm-dd #和 Str 功能一样,不过格式固定了
Duration 时间段
- 数值
- is Cool does Real
- 这样 Real 以及 Real的父类 Numeric 的方法都可以用
- 表示时间间隔,秒
- 当作数字时,返回 Rat/FatRat 数据类型
Instant 时刻
- 数值
- is Cool does Real
- 用秒表示特定的时刻/时间点,可以有小数
- 2个 Instant 相减得到 Duration(数值)
- Instant 加 Duration 还是Instant(说得通)
.from-posix($posix, $prefer-leap-second)
# 第二个参数是是否考虑闰秒;如果 True,则闰秒不考虑
.to-posix
#和 from-posix 刚好相反,返回 POSIX timestamp, True/False List
需要注意,Perl 6 和其他程序使用的时间不同,Perl的时间原点和其他的程序不一样的
其他程序都是已1970年1月1日,00:00:00 UTC为起点的
Reference
- Date and Time in Perl6