From: Bill Verzal (BVerzal@KOMATSUNA.COM)
Date: Thu Apr 29 2004 - 12:15:13 EDT
OK - I have an old C program print out the epoch. I also have an old C
program that converts the epoch to a 'date' command. I know Perl can do
the same. Doe anyone have a program that takes the date in YYYY/MM/DD and
HH:MM:SS format and can print out the epoch ?
I created a script as below to do it and it is functional. Feel free to
keep it and to offer suggestions on it.
Thanks, Bill.
#!/usr/bin/ksh
#
# Enter a date/time and I'll find the epoch.
#
# Input #1: yyyy/mm/dd
# Input #2: HH:MM:SS
#
# I'll find the epoch.
#
perl="/usr/komatsu/bin/perl -we"
p1="$perl 'print time'"
p2="$perl 'print scalar localtime'"
# ### P1=`eval $p1`
# ### P2=`eval $p2 $P1`
# ### The commands must be 'eval'-ed to work. See above.
#
echo "Enter date (format YYYY/MM/DD)"
read yyyyxmmxdd
echo "Enter time (format HH:MM:SS)"
read hhxmmxss
now=`eval $p1`
d1=`echo $yyyyxmmxdd|wc -c|awk {'print $1'}`
t1=`echo $hhxmmxss|wc -c|awk {'print $1'}`
# The character counts are off by one because of the \n
if [ "$d1" -ne "11" ] ; then
echo "Invalid date format - YYYY/MM/DD only"
exit 1
fi
if [ "$t1" -ne "9" ] ; then
echo "Invalid time format - HH:MM:SS only"
exit 1
fi
# Now, break the fields up...
yyyy=`echo "$yyyyxmmxdd"|cut -c1-4`
mm=`echo "$yyyyxmmxdd"|cut -c6-7`
dd=`echo "$yyyyxmmxdd"|cut -c9-10`
HH=`echo "$hhxmmxss"|cut -c1-2`
MM=`echo "$hhxmmxss"|cut -c4-5`
SS=`echo "$hhxmmxss"|cut -c7-8`
secday="86400"
secweek="604800"
secyear="31449600"
secmo="2620800"
sechour="3600"
secmin="60"
# Work on the year first...
q=`date +%Y`
if [ "$q" -eq "$yyyy" ] ; then
e="$now"
else
if [ "$q" -gt "$yyyy" ] ; then
w=`echo "$q-$yyyy"|bc -l`
r=-1
else
w=`echo "$yyyy-$q"|bc -l`
r=1
fi
e=`echo "($secyear*$w)*$r" |bc -l`
y=`echo "$now+$e"|bc -l`
e=$y
fi
# ### echo "epoch is now: $e"
# ### perl -we "print scalar localtime $e"
# ### echo " "
# Now the month
q=`date +%m`
if [ "$q" -eq "$mm" ] ; then
:
else
if [ "$q" -gt "$mm" ] ; then
w=`echo "$q-$mm"|bc -l`
r=-1
else
w=`echo "$mm-$q"|bc -l`
r=1
fi
e1=`echo "($secmo*$w)*$r" |bc -l`
e=`echo "$e+$e1"|bc -l`
fi
# ### echo "epoch is now: $e"
# ### perl -we "print scalar localtime $e"
# ### echo " "
# Now the day
q=`date +%d`
if [ "$q" -eq "$dd" ] ; then
:
else
if [ "$q" -gt "$dd" ] ; then
w=`echo "$q-$dd"|bc -l`
r=-1
else
w=`echo "$dd-$q"|bc -l`
r=1
fi
e1=`echo "($secday*$w)*$r" |bc -l`
e=`echo "$e+$e1"|bc -l`
fi
# ### echo "epoch is now: $e"
# ### perl -we "print scalar localtime $e"
# ### echo " "
# In case the date is off due to leap years or other
# things, check with a tweak.
D=`perl -we "print scalar localtime $e"|awk {'print $3'}`
# Now the day #2
if [ "$D" -eq "$dd" ] ; then
:
else
if [ "$D" -gt "$dd" ] ; then
w=`echo "$D-$dd"|bc -l`
r=-1
else
w=`echo "$dd-$D"|bc -l`
r=1
fi
e1=`echo "($secday*$w)*$r" |bc -l`
e=`echo "$e+$e1"|bc -l`
fi
# ### echo "\n\nepoch is now: $e"
# ### perl -we "print scalar localtime $e"
# ### echo "\n\n"
#
# At this stage of the game, testing indicates that we
# have the year, month and day correct. Now we need
# to tweak the time.
#
savE=$e # Save the epoch as we have it in case we need it.
eTime=`perl -we "print scalar localtime $e" |awk {'print $4'}`
eTimeHH=`echo "$eTime"|cut -f1 -d":"`
eTimeMM=`echo "$eTime"|cut -f2 -d":"`
eTimeSS=`echo "$eTime"|cut -f3 -d":"`
# Now the hour
q="$HH"
if [ "$q" -eq "$eTimeHH" ] ; then
:
else
if [ "$q" -gt "$eTimeHH" ] ; then
w=`echo "$q-$eTimeHH"|bc -l`
r=1
else
w=`echo "$eTimeHH-$q"|bc -l`
r=-1
fi
e1=`echo "($sechour*$w)*$r" |bc -l`
e=`echo "$e+$e1"|bc -l`
fi
# ### echo "epoch is now: $e"
# ### perl -we "print scalar localtime $e"
# ### echo " "
# Now the minute
q="$MM"
if [ "$q" -eq "$eTimeMM" ] ; then
:
else
if [ "$q" -gt "$eTimeMM" ] ; then
w=`echo "$q-$eTimeMM"|bc -l`
r=1
else
w=`echo "$eTimeMM-$q"|bc -l`
r=-1
fi
e1=`echo "($secmin*$w)*$r" |bc -l`
e=`echo "$e+$e1"|bc -l`
fi
# ### echo "epoch is now: $e"
# ### perl -we "print scalar localtime $e"
# ### echo " "
# Now the seconds
q="$SS"
if [ "$q" -eq "$eTimeSS" ] ; then
:
else
if [ "$q" -gt "$eTimeSS" ] ; then
w=`echo "$q-$eTimeSS"|bc -l`
r=1
else
w=`echo "$eTimeSS-$q"|bc -l`
r=-1
fi
e1=`echo "($w)*$r" |bc -l`
e=`echo "$e+$e1"|bc -l`
fi
#
# At this point we should have it.
#
echo "$e"
--------------------------------------------------------
"If everything is coming your way, then you are in the wrong lane"
Bill Verzal
AIX Administrator, Komatsu America
(847) 970-3726 - direct
(847) 970-4184 - fax
This archive was generated by hypermail 2.1.7 : Wed Apr 09 2008 - 22:17:52 EDT