Re: [PerlChina] PerlChina Advent Day 18: Time::Piece 模块

Ken Lam Thu, 18 Dec 2014 08:33:44 -0800

cool~;-)

于 14/12/18 下午9:58, chenlin rao 写道:

巧合的是今天日本Perl协会的advent发的是 Time::Piece::Iterator 模块，http://t.cn/Rz3HWiy 大家可以一块看看~

在 2014年12月18日下午9:56，chenlin rao <rao.chen...@gmail.com<mailto:rao.chen...@gmail.com>>写道：


    # Time::Piece

    时间处理是一个有时候蛮麻烦的事情。很多 Perl 程序员可能还习惯于使用
    下面这样的写法：

        my ($sec, $min, $hour, $mday, $mon, $year_off, $wday, $yday,
    $isdat) = localtime;

    或者稍微简单一点的地方，可以：

        use POSIX qw/strftime/;
        print strftime('%F %T', localtime);

    但是涉及到时间运算的时候，就麻烦多了。常见的是换算到秒做加减乘除，
    或者安装沉重的 DateTime 模块。

    ## Time::Piece 示例

    其实，从 Perl v5.9.5 版本开始，就随内核分发一个时间模块，叫
    [Time::Piece](https://metacpan.org/pod/Time::Piece)。
    <https://metacpan.org/pod/Time::Piece%29%E3%80%82>在 通常情况下，
    都足够好用了。

        use 5.010;
        use Time::Piece;
        my $t = localtime() - localtime()->tzoffset;
        say $t->datetime;  # 2014-12-14T16:06:06
        say localtime()->datetime; # 2014-12-15T00:06:06
        say $t->date;  # 2014-12-14
        say $t->mdy('/');  # 12/14/2014
        say $t->time;  # 00:06:06
        say $t->hms('.');  # 00.06.06
        say $t->epoch; # 1418573166
        say $t->month; # Dec
        say $t->add_months(1)->year;     # 2015

    Time::Piece 会覆盖 CORE 里提供的 **localtime** 和 **gmtime** 函
    数，自动返回 Time::Piece 对象。这点类似的还有
    [File::stat](https://metacpan.org/pod/File::stat) 模块，注意是小写
    的，这个也是 Perl5 现在的内核分发模块。在 `use File::stat` 以
    后，**stat** 函数也会自动返回 File::stat 对象而不是那个复杂的数组！

    ## Time::Seconds 示例

    上面示例代码里有个隐藏的地方，`localtime->tzoffset` 事实上是返回了
    一个 [Time::Seconds](https://metacpan.org/pod/Time::Seconds) 对
    象。这个类是 Time::Piece 模块里一起提供的，不用单独安装。

    一个 Time::Piece 对象加减一个 Time::Seconds 对象，得到的还是
    Time::Piece 对象。而两个 Time::Piece 对象相加减，得到的则是
    Time::Seconds 对象了：

        my $s = $t - localtime();
        say $s->days;  # 31

    Time::Seconds 如果你单独导入的话，他会导出一系列常量，比如我们再重
    复一次前面那个加一个月的操作，就可以写成：

        use Time::Seconds;
        $t += ONE_MONTH;                               # 继续用前面的
    $t 变量
        say $t->month; # Feb

    ## 缺陷

    Time::Piece 虽然也实现了 `strptime` 方法，但是实现的不是很全面(不
    支持时区)。如果有很强的从字符串转换成时间对象的需求，可以参考
    
[Time::Moment](https://metacpan.org/pod/distribution/Time-Moment/lib/Time/Moment.pod)
    模块的 `->from_string` 方法。Time::Moment 模块也提供了类似的一些属
    性方法。


    http://advent.perl-china.com/calendar/2014/18/

--

您收到此邮件是因为您订阅了Google网上论坛上的“PerlChina Mongers 讨论组”群组。要退订此群组并停止接收此群组的电子邮件，请发送电子邮件到perlchina+unsubscr...@googlegroups.com<mailto:perlchina+unsubscr...@googlegroups.com>。要发帖到此群组，请发送电子邮件至perlchina@googlegroups.com<mailto:perlchina@googlegroups.com>。

访问此群组：http://groups.google.com/group/perlchina。
要查看更多选项，请访问https://groups.google.com/d/optout。


--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”群组。
要退订此群组并停止接收此群组的电子邮件，请发送电子邮件到perlchina+unsubscr...@googlegroups.com。
要向此群组发帖，请发送电子邮件至 perlchina@googlegroups.com。
访问此群组：http://groups.google.com/group/perlchina。
要查看更多选项，请访问 https://groups.google.com/d/optout。

Re: [PerlChina] PerlChina Advent Day 18: Time::Piece 模块

回复