Hello All, I need to convert a value, given in seconds, to string like "1 day, 10 hours, 23 min, 44 sec". I wrote a simple script, but I'd like to check if there is any standard (?) ways to do it, or, at least, more elegant. Or, probably, the code has some bugs?

Code:

use strict;

my $idle = 1332443;
my ($days, $hours, $min, $sec);
$days = round($idle/86400);
$idle -= $days*86400;
$hours = round($idle/3600);
$idle -= $hours*3600;
$min = round($idle/60);
$idle -= $min*60;
$sec = $idle;

print "$days days, $hours hours, $min min, $sec sec\n";

sub round {
    my $value = $_[0];
    return (sprintf('%.0f', 2 * $value / 2));
}
[download]

Thanks.
--dda