Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Finding time difference from two strings

by thezip (Vicar)
on Oct 27, 2007 at 02:31 UTC ( #647540=note: print w/replies, xml ) Need Help??

in reply to Finding time difference from two strings

This will do the trick:

(Note that I changed one of your time strings because a day name didn't agree with the other)

Update: You'll still need to wrap into a loop such as what graff did, but you can throw mine into a sub with two time strings as parameters, and have it return the elapsed time between them.

#!/perl/bin/perl -w use strict; use Time::Local; my %months = ( Jan => 1, Feb => 2, Mar => 3, Apr => 4, May => 5, Jun => 6, Jul => 7, Aug => 8, Sep => 9, Oct => 10, Nov => 11, Dec => 12 ); my $beginning = 'Fri Oct 26 05:54:09 2007'; my $end = 'Fri Oct 26 06:54:09 2007'; my @b = split(/[:\s]/, $beginning); my @e = split(/[:\s]/, $end); my $b = timelocal($b[5], $b[4], $b[3], $b[2], $months{$b[1]}-1, $b[-1] +); my $e = timelocal($e[5], $e[4], $e[3], $e[2], $months{$e[1]}-1, $e[-1] +); #my @new = localtime($b); #printf "%04d%02d%02d\n", $new[5]+1900, $new[4]+1, $new[3]; my $elapsed = $e - $b; print qq($elapsed seconds elapsed between the two events.\n); __OUTPUT__ 3600 seconds elapsed between the two events.

Where do you want *them* to go today?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://647540]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2018-06-19 07:42 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (111 votes). Check out past polls.