Convert to epoch

[proggybilly]

I am pulling datetime out of a summary file. I have the begin time and end time. What I need to do is convert each to epoch so I can subtract and then convert into run time in 00:00:00 format.

I can do the conversion back no problem bout how would I convert Thu Mar 4 00:02:33 CST 2010 to epoch?

All help is greatly appreciated.

 

[olded]

One way is to use Perl's Time::Local package which contains the timelocal function:

#!/usr/bin/perl -w
use Time::Local;
my $month = 3;
my $day = 4;
my $year = 2010;
my $seconds = 33;
my $hours = 0;
my $minutes = 2;

my $epochseconds = timelocal($seconds, $minutes, $hours, $day, $month - 1, $year);

print "$epochseconds\n";

 

[Zhris]

Hello,

Have you had a good look through the Date::Calc module documentation (

http://search.cpan.org/dist/Date-Calc/lib/Date/Calc.pod)?

Chris

 

[Zhris]

You could incorporate into olded's code a hash table of month string/month value, as that is the only part you would need to convert.

my $month_string = 'Mar';

my %months = (
    'Jan' => "1",
    'Feb' => "2",
    'Mar' => "3"
);

my $month_value = $months{$month_string};

Chris

 

[proggybilly]

Thanks all, your recommendations were greatly appreciated and helpful!