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

Re^2: Getting seconds from date

by ultranerds (Friar)
on Jun 05, 2011 at 10:21 UTC ( #908180=note: print w/ replies, xml ) Need Help??


in reply to Re: Getting seconds from date
in thread Getting seconds from date

Hi,

Thanks for the reply. I tried converting it to the localtime format, but unfortunatly didn't have much success. Do you have a module in mind to do that?

TIA

Andy


Comment on Re^2: Getting seconds from date
Replies are listed 'Best First'.
Re^3: Getting seconds from date
by Perlbotics (Canon) on Jun 05, 2011 at 10:56 UTC

    Dealing with dates and times is quite tricky. Have a look at the module suggestions given in the dates and times section, e.g. Fast(er) date parsing.

    However, if you insist on using Time::Local, you can use this snippet to get started...

    use strict; use warnings; use Time::Local qw(timelocal); sub localdate2epoch { my $date = shift; # insert some sanity checks and normalisation (whitespace removal, e +tc.) my ($year, $mon, $mday, $hour, $min, $sec) = split /[-\s:]+/, $date +; # insert more sanity checks # .oO( get the impression here, it's better to use a module ;-) $year -= 1900; # correct year (2011 = 1900 + 111); $mon -= 1; # correct month (0..11) return timelocal( $sec, $min, $hour, $mday, $mon, $year ); } my $date = "2011-06-05 11:00:00"; my $now_in_secs = localdate2epoch $date; print "In : $date\n"; print "epo: $now_in_secs\n"; print "Out: ", scalar localtime $now_in_secs, "\n"; __END__ In : 2011-06-05 11:00:00 epo: 1307264400 Out: Sun Jun 5 11:00:00 2011

      You legend, works a charm :)

      Thanks!

      Andy

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://908180]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (13)
As of 2015-07-07 19:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls