RE: Convert seconds into a formatted ddd:hh:mm:ss string

You could do this with an amusing (ab)use of gmtime thus :-

  $string = join ":", map { sprintf "%02d", $_ } (gmtime($seconds))[7,
+2,1,0];
[download]

Or perhaps slightly more sanely as

  $string = sprintf "%02d:%02d:%02d:%02d", (gmtime($seconds))[7,2,1,0]
+;
[download]

If you want to strip the string then run this on it

  $string =~ s/\G00://g;
[download]

This regexp idea came from merlyn via Effective Perl

Comment on RE: Convert seconds into a formatted ddd:hh:mm:ss string Select or Download Code

Replies are listed 'Best First'.

RE: RE: Convert seconds into a formatted ddd:hh:mm:ss string
by merlyn (Sage) on Aug 31, 2000 at 14:46 UTC

This

ncw

Also, the use of sprintf there to add the leading 0 is much more perl-ish than the few odd snippets I've seen in this thread of:

$var = "0$var" if $var < 10;
[download]

I think for me the problem is that the non-sprintf solution does not scale well. For example, what if you wanted three digits? Do you add another test?

$var = $var < 10 ? "00$var" : $var < 100 ? "0$var" : $var;
[download]

So, get cozy with sprintf: it solves many problems (including the rounding problem discussed a few days ago).

-- Randal L. Schwartz, Perl hacker

[reply]
[d/l]
[select]


more useful options
	PerlMonks