perl - 使用 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