date to epoch

Renjith777 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: date to epoch by Ratazong (Monsignor) on Nov 15, 2011 at 09:07 UTC
If you use Date::Calc, you could use the function Mktime for this (after splitting your string, e.g. using a regex). `$time = Mktime($year,$month,$day, $hour,$min,$sec);` [download]	[reply] [d/l]
Re^2: date to epoch by Renjith777 (Initiate) on Nov 15, 2011 at 09:09 UTC
I am new to perl.. Could you please give me a sample code ?	[reply]
Re^3: date to epoch by Ratazong (Monsignor) on Nov 15, 2011 at 09:17 UTC
`# assumption: yyyymmddhhmmss $date =~ /(....)(..)(..)(..)(..)(..)/; my $year = $1; my $month = $2; ... my $sec = $6;` [download] However consider using character-classes (e.g. `\d` for a digit) and checking if `$date` is really in in the expected format instead of this "quick and dirty" solution.	[reply] [d/l] [select]
Re^4: date to epoch by Renjith777 (Initiate) on Nov 15, 2011 at 09:19 UTC
Re^5: date to epoch by marto (Cardinal) on Nov 15, 2011 at 09:34 UTC
Re^5: date to epoch by Renjith777 (Initiate) on Nov 15, 2011 at 09:25 UTC
Re: date to epoch by MidLifeXis (Monsignor) on Nov 15, 2011 at 13:38 UTC
See also Time::Local. Depending on the time zone of your original timestamp, you may need to use `timelocal` or `timegm`. Many of the other date and time modules on CPAN can also help with this conversion. --MidLifeXis	[reply] [d/l] [select]