Perl module: Time::Moment

2021/7/22 14:12:03

本文主要是介绍Perl module: Time::Moment,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!

Module安装方法:

http://www.cpan.org/modules/INSTALL.html

cpan App::cpanminus

cpanm Time::Moment

 

使用说明:

https://metacpan.org/pod/Time::Moment

 

离线查看doc方法:

perldoc Time::Moment

 

使用案例:

use v5.30.3;
use Time::Moment;

# my $dt = Time::Moment->from_epoch( time );
# say $dt;

my $dt = Time::Moment->new(
    year => 2021,
    month => 1,
    day => 2,
);

my $issue_id = 8911;

foreach(0..51) {
    my $tmp = $dt->plus_days($dt->day_of_month + 7 * $_);
    printf "%d_%4d%02d%02d\n", $issue_id, $tmp->year, $tmp->month, $tmp->day_of_month;
    $issue_id += 1;
}

 

输出结果:

8911_20210104
8912_20210111
8913_20210118
8914_20210125
8915_20210201
8916_20210208
8917_20210215
8918_20210222
8919_20210301
...

 



这篇关于Perl module: Time::Moment的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!


扫一扫关注最新编程教程