perl – 是否有用于将秒数转换为英语的CPAN模块？

发布时间：2020-12-15 23:31:21 所属栏目：大数据来源：网络整理

导读：是否有CPAN模块可以将数秒转换为人类可读的英语间隔描述？ secToEng( 125 ); # = 2 min 5 secsecToEng( 129_600 ); # = 1 day 12 h 只要它是人类可读的,格式就不重要了. 我知道实施它将是微不足道的. 解决方法从Perl v5.9.5开始,模块Time :: Seconds和Time

是否有CPAN模块可以将数秒转换为人类可读的英语间隔描述？

secToEng( 125 ); # => 2 min 5 sec
secToEng( 129_600 ); # => 1 day 12 h

只要它是人类可读的,格式就不重要了.

我知道实施它将是微不足道的.

解决方法

从Perl v5.9.5开始,模块Time :: Seconds和Time :: Piece是核心Perl发行版的一部分.因此,您无需安装其他模块即可使用它们.

perl -MTime::Seconds -e 'my $s=125; my $ts=new Time::Seconds $s; print $ts->pretty,"n"'
# 2 minutes,5 seconds

perl -MTime::Seconds -e 'my $s=129_600; my $ts=Time::Seconds->new($s); print $ts->pretty,"n"'
# 1 days,12 hours,0 minutes,0 seconds

您还可以使用$ts->周,$ts->分钟等内容.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!