Shell Programming and Scripting

perl -w -e '@mytime=localtime (time - $ARGV[0]); printf "%d%.2d%.2d%.2d%.2d", $mytime[5]+1900,$mytime[4]+1,$mytime[3],$mytime[2],$mytime[1];' 3600

#! /usr/bin/ksh

alias datecalc=./datecalc
set -A t $(date "+%Y %m %e %H %M")
echo "datecalc -a ${t[0]} ${t[1]} ${t[2]} - 1"
if ((${t[3]})) ; then
        ((t[3]=t[3]-1))
else
        set +A t $(datecalc -a ${t[0]} ${t[1]} ${t[2]} - 1) 23 ${t[4]}
fi
year=${t[0]}
typeset -Z2 t

timestamp=${year}${t[1]}${t[2]}${t[3]}${t[4]}

touch -t $timestamp xfile
ls -l xfile

exit 0