Shell Programming and Scripting

touch -d "5 mins ago" temp

find . | perl -ane 'chomp($_); $bef = time() - (5 * 60); $a = (lstat($_))[9]; if ($a > $bef) { print $_, "\n"}'

#!/bin/ksh


date '+%Y %m %d %H %M %S' | read in_Y in_m in_d in_H in_M in_S                                   # Get current time values 
((in_m=$in_m-1))                                                                                 # Reduce month by one as epoch counts from 1/1/1970 as month zero

perl -e "use Time::Local; print timelocal($in_S,$in_M,$in_H,$in_d,$in_m,$in_Y), ;" | read cur_S  # Get current time in seconds since epoch
((old_S=$cur_S-300))                                                                             # Go back five minutes (in seconds)

perl -e 'use POSIX qw(strftime);\
print scalar(strftime "%Y %m %d %H %M %S", localtime $ARGV[0]), "\n";' $old_S | read Y m d H M S # Display answer in required format to be read in

touch -mt ${Y}${m}${d}${H}${M}.${S} /tmp/ref_file                                                # Create reference file

find . -type f -newer /tmp/ref_file                                                              # Find required files

touch marker_old
 
while :
do
 sleep 300
 touch marker_new
 find ... -newer marker_old \( ! -newer marker_new \) ...
 mv -f marker_new marker_old
done