http://www.perlmonks.org?node_id=908180


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

Replies are listed 'Best First'.
Re^3: Getting seconds from date
by Perlbotics (Archbishop) 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 QandASection: 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

    [download]

[reply]
[d/l]
      You legend, works a charm :)

      Thanks!

      Andy
[reply]

In Section Seekers of Perl Wisdom