How do I convert seconds into a readable time?

[Monolith-0]

ex. Change 196364 into '2 days, 6 hours, 32 minutes and 44 seconds' or something like that.

Originally posted as a Categorized Question.

[I0]

printf "%d days, %d hours, %d minutes and %d seconds\n",(gmtime 196364
+)[7,2,1,0];

But NB: this only works for intervals less than one month.
tachyon's method (below) works for arbitrarily large values (within integer range; this could be fixed by using Math::BigInt).

[tachyon]

I love IOs answer but in the spirit of TIMTOWDI here is how to roll your own. This illustrates one of the uses for the modulus operator:

my $sec = 196364;

print "days  ", int($sec/(24*60*60)),  "\n";
print "hours ", ($sec/(60*60))%24,     "\n";
print "mins  ", ($sec/60)%60,          "\n";
print "secs  ", $sec%60,               "\n";

[Hofmator]

Just a remark to I0's solution. Though very elegant this only works for values within one year. tachyon's 'roll-your-own-method' works for arbitrary values (within integer range - this could be fixed by using Math::BigInt). Just something to keep in mind ...

Originally posted as a Categorized Answer.

[Limbic~Region]

You could use Time::Duration. The question was intriguing enough to me to re-invent a wheel for the sake of learning.

Cheers - L~R

[toolic]

If you only need an approximate answer, I'll invoke the "or something like that" clause and change 196364 into '2.3d'

print sec2human(196364), "\n";

sub sec2human {
    my $secs = shift;
    if    ($secs >= 365*24*60*60) { return sprintf '%.1fy', $secs/(365
+*24*60*60) }
    elsif ($secs >=     24*60*60) { return sprintf '%.1fd', $secs/(   
+ 24*60*60) }
    elsif ($secs >=        60*60) { return sprintf '%.1fh', $secs/(   
+    60*60) }
    elsif ($secs >=           60) { return sprintf '%.1fm', $secs/(   
+       60) }
    else                          { return sprintf '%.1fs', $secs     
+           }
}

[zen-japh]

Here is a method of going back to seconds from a string like "2 days, 6 hours, 32 minutes and 44 seconds":

sub dhms2sec {
   my $in = shift;
   $in =~ s/(and|,)//g;
   $in =~ s/(\w+)s/\1/g;
   my %y = reverse split(/\s+/,$in);
   return ($y{'second'}) +
          ($y{'minute'} * 60) +
          ($y{'hour'}   * 60*60) +
          ($y{'day'}    * 60*60*24);
}

[blakem]

The answer and question don't match.... The question is "How do I convert seconds into a readable time?" but the answer given converts readable time into seconds...

Q: How do I '$seconds => $string'??
A: Do this '$string => $seconds'!!

We should change one or the other to get them to match.

-Blake

Update After a bit more investigating, I decided that this isn't really an issue. I thought it was the only answer given for the question. Since it is more of a "thats cool, here's how you can do it backwards" post, my complaint isn't really valid. Feel free to remove this node, mr reaper...

[hossman]

The DateTime project has created a DateTime::Duration object, as well as DateTime::Format::Duration.

[Limbic~Region]

You could use Time::Duration. The question was intruguing enough to me to re-invent a wheel for the sake of learning.

Cheers - L~R

Originally posted as a Categorized Answer.

[Anonymous Monk]

23569

Originally posted as a Categorized Answer.

[Anonymous Monk]

My version is slightly different, and does not quite work right. Could someone spot my mistake?
It's not written in perl, but the language is basic enough to be portable pretty much anywhere



function convertToTime(seconds)
var thex
var they
var thez
var mind

mind = Int(seconds)
thex = mind Mod 60
 if thex = 0
  thex = mind / 60
 else
  mind = (int(mind ) - int(thex))
 end
they = mind Mod 3600
 if they = 0 
  they = mind / 3600
 else
  mind = mind - they
 end
 thez = mind / 60
 theTime = thez/60 + ":" + they/60 + ":" + thex
 return theTime
end

[zengargoyle]

seconds to #d_HH:MM:SS.ss and back.

sub dhms2s {
        my $dhms = shift;
        my @dinfo = split /d_|:/, $dhms;
        my ($s, $m, $h, $d) = reverse @dinfo;
        $d ||= 0;
        $h ||= 0;
        $m ||= 0;
        return (
          (( $d * 24  + $h ) * 60  + $m ) * 60  + $s
        );
}

my $m = 60;
my $h = 60 * $m;
my $d = 24 * $h;

sub s2dhms {
        my $secs = shift;
        my $D = int($secs / $d); $secs = $secs - $D * $d;
        my $H = int($secs / $h); $secs = $secs - $H * $h;
        my $M = int($secs / $m); $secs = $secs - $M * $m;
        my $S = $secs ;
        my $r;
        if ($D) {
                $r .= sprintf "%dd_", $D;
        }
        if ( $S == int $S ) {
                $r .= sprintf "%02d:%02d:%02d", $H, $M, $S;
        } else {
                $r .= sprintf "%02d:%02d:%05.2f", $H, $M, $S;
        }
        return $r;
}

[Anonymous Monk]

3000

Originally posted as a Categorized Answer.

[Anonymous Monk]

Put your head into your anus and sniff

Originally posted as a Categorized Answer.