Shell Programming and Scripting

[ mktime( $sec, $min, $hour, $day, $mon, $year ), 0 ]

use Time::HiRes 'gettimeofday';
my $s = gettimeofday();
print "$s\n";

use Time::HiRes 'gettimeofday';
use POSIX;

my $s = gettimeofday();
my $logFileLine = "05/12/2012 13:23:00 - Something just happened";
my $sec = getSeconds($logFileLine); #00
my $min = getMinutes($logFileLine); #23
my $hour = getHour($logFileLine); #13
my $day = getDay($logFileLine); #12
my $month = getMonth($logFileLine); #05
my $year = getYear($logFileLine); #2012
my $logTimeStamp = mktime( $sec, $min, $hour, $day, $month, $year )
my $convertedToHiResTime = [ $logTimeStamp, 0 ]; #does this work?

my $timeelapsed = ($s, $convertedToHiResTime)
if ($timeelapsed gt 0)
{
    print "log happened after initial timestamp of \$s";
}

use Time::HiRes 'gettimeofday';
use POSIX;

my $s = gettimeofday();
my $logFileLine = "05/12/2012 13:23:00 - Something just happened";

# I hope you've sub-routines for getSeconds, getMinutes, getHour, etc..
# These are not available in Time::HiRes module

my $sec = getSeconds($logFileLine); #00
my $min = getMinutes($logFileLine); #23
my $hour = getHour($logFileLine); #13
my $day = getDay($logFileLine); #12
my $month = getMonth($logFileLine); #05
my $year = getYear($logFileLine); #2012

my $logTimeStamp = mktime( $sec, $min, $hour, $day, $month, $year )
$logTimeStamp .= ".000000";

# my $convertedToHiResTime = [ $logTimeStamp, 0 ]; #does this work? # No, it won't.

# my $timeelapsed = ($s, $convertedToHiResTime)
my $timeelapsed = $s - $logTimeStamp;

if ($timeelapsed gt 0)
{
    print "log happened after initial timestamp of \$s";
}

my $timeelapsed = $logTimeStamp - $s;