Along the same lines, you could do something to the effect of

Update: After reading sulfericacid's response, I tested my algo. The issue was a typo ( popped up with use strict;), and I wasn't calling int. New code below.

#!/usr/bin/perl
# tested and verified

use strict;

my $then = time() - (86400 * 3);

my $min_s   = 60;
my $hour_s  = $min_s * 60;
my $day_s   = $hour_s * 24;
my $elapsed = time() - $then;

my $output;

my $days  = int( $elapsed / $day_s );
$elapsed -= $days * $day_s;
$output   = "$days days " if $days;

my $hours = int ( $elapsed / $hour_s );
$elapsed -= $hours * $hour_s;
$output  .= "$hours hours " if $hours;

my $mins  = int ( $elapsed / $min_s );
$elapsed -= $mins * $min_s;
$output .= "$mins minutes " if $mins;

$output .= "$elapsed seconds" if $elapsed;

# so on and so forth;
print "$output ago\n";

[download]

use perl;
Everyone should spend some time pounding nails with their forehead for a while before they graduate to complicated stuff like hammers. - Dominus

In reply to Re: Re: Determining time since by l2kashe
in thread Determining time since by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.