G'day sjwnih111,

Welcome to the monastery.

If you're just looking for a difference between that time today and the current time today, you can use the builtin module, Time::Piece, like this: 

$ perl -Mstrict -Mwarnings -le '
    use Time::Piece;

    my $now = gmtime;
    my $now_Ymd_date = sprintf "%4s%02s%02s", $now->year, $now->mon, $
+now->mday;

    my $then_HMS_time = "082802";
    my $then_date_time = $now_Ymd_date . $then_HMS_time;
    my $then = Time::Piece->strptime($then_date_time, "%Y%m%d%H%M%S");

    print "Then: ", $then->strftime("%Y-%m-%d %H:%M:%S");
    print "Now:  ", $now->strftime("%Y-%m-%d %H:%M:%S");
    print "Now - Then: ", $now - $then, " seconds";
'
Then: 2013-09-11 08:28:02
Now:  2013-09-11 01:44:18
Now - Then: -24224 seconds

[download]

Note that gives a negative time difference because it's not elapsed time at all, it's ~7 hours in the future. To get an elapsed time, you'll need to provide a date and time in the past to compare with the current date and time. This is what hippo was referring to.

Of course, if you're piloting a time machine, negative elapsed times might be entirely appropriate. :-)

-- Ken

In reply to Re: time elapsed from set time by kcott
in thread time elapsed from set time by sjwnih111

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.