Shell Programming and Scripting

#!/usr/bin/ksh
filedate="$2 $1"
pattern=$3
cd /path/to/files
ls -l |grep "$filedate" | awk '{print $9}'|while read filename; do
   grep a $filename > /dev/null && mv $filename /path/to/dest/
done

#! /usr/bin/ksh
#set -x                 # unhash to debug

print_usage() {
        echo "usage: ./searchnmove <date_to_search> <pattern_to_search_for> <src_dir> <dest_dir>

date_to_search can have pattern of YYYYMMDD or just MMDD. In the second
               case the current year will be assumed"
}

PERLDIR=/opt/perl/bin   # set this to the directory where perl is installed

if [ $# -ne 4 ]; then
        echo "searchnmove: incorrect number of arguments"
        print_usage
        exit 2
fi

if [ ${#1} -eq 8 ]; then
        searchdate=$1
elif [ ${#1} -eq 4 ]; then
        searchdate=$(date +%Y)$1
else
        echo "searchnmove: date pattern incorrect"
        print_usage
        exit 2
fi
if [ ! -d $3 ]; then
        echo "searchnmove: source directory does not exist"
        exit 2
fi
SRCDIR=$3
if [ ! -d $4 ]; then
        echo "searchnmove: destination directory does not exist"
        exit 2
fi
DESTDIR=$4
searchpattern="$2"
cd $SRCDIR
for file in *; do
        filemod=$($PERLDIR/perl -w -e '$mtime=(stat($ARGV[0]))[9]; @ltime=localtime $mtime; printf "%04s%02s%02s",$ltime[5]+1900,$ltime[4]+1,$ltime[3];' $file)
        if [ $filemod = $searchdate ]; then
                grep $searchpattern $file >/dev/null && mv $file $DESTDIR/
        fi
done

for i in 0 1 2 3 4 5 6 7 8 9; do
   ./searchnmove 2005122${i} ### rest of the args 
done