使用Perl将秒转换为天,小时,分钟

Question

我想使用perl 控制在几秒钟内生成的输出.我想以天,小时,分钟和秒的形式显示时间(以秒为单位),以使其成为人类可读的格式.

码

my $start = time;
<some other perl codes>
my $duration = time - $start;
print "Total Execution time: $duration s\n";

输出为311052秒

要求输出为3天14小时24分12秒

注意:我是Perl的新手.在你标记之前这是重复的,我做了我的研究.我已经完成了讨论类似解决方案的所有 stackoverflow ,没有任何帮助.我的代码非常小.可以添加的几行更改可能是什么.

Answer 1

您可以使用Time::Piece和Time::Seconds模块,它们将为您完成所有这些工作

在这个程序中,我只是将pi天添加到当前日期和时间以获得代表性持续时间.当然,您将使用实际时间

use strict;
use warnings;

use Time::Piece;
use Time::Seconds qw/ ONE_DAY /;

my $start = localtime;
my $end = $start + int(355/113 * ONE_DAY);

my $duration = ($end - $start)->pretty;
print "Total Execution time: $duration\n";

产量

Total Execution time: 3 days, 3 hours, 23 minutes, 53 seconds