#!/bin/bash
# YYYY MM DD HH MM SS
# perl autosplits the string and uses timelocal to return
# the number of seconds from the Epoch
# No error checking!
function seconds_from_epoch {
echo $*| perl -MTime::Local -ane '
my $epochseconds = timegm($F[5], $F[4], $F[3], $F[2], $F[1], $F[0]);
print "$epochseconds\n"; '
}

# parse file s32adm_bash_history date and time
set -- $(ls -l s32adm_bash_history)
fdate=$7
ftime=$6

# parse the year, month, and day
set -- $(IFS="-"; echo $fdate)
fyear=$1
fmonth=$2
fday=$3

# parse the hours and minutes
set -- $(IFS=":"; echo $ftime)
fhour=$4
fmin=$5

totsecs=$(seconds_from_epoch $fmin $fhour $fday $fmonth $fyear )
echo $totsecs