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 ...