develooper Front page | perl.beginners.cgi | Postings from November 2001

Re: Converting Date to Epoch Seconds

Thread Previous
From:
merlyn
Date:
November 30, 2001 09:56
Subject:
Re: Converting Date to Epoch Seconds
Message ID:
m1hercw3ba.fsf@halfdome.holdit.com
>>>>> "Dale" == Dale Pellerin <dale.pellerin@gwl.com> writes:

Dale> How do you convert a date that is already in the format YYYYMMDD into Epoch
Dale> seconds?

Dale> $date = 20011130

Presuming you want midnight localtime for that date:

my $date = "20011130";
my ($year, $month, $day) = $date =~ /(\d\d\d\d)(\d\d)(\d\d)/ or die;
use Time::Local;
my $epoch = timelocal(0, 0, 0, $day, $month-1, $year-1900);
print scalar localtime $epoch;

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About