是否有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->分钟等内容.