UNIX for Advanced & Expert Users

XXXDIR=/abc/def/ghi
#not months first two & last one
function file_purge
{
    tradecheck=`pwd`
 echo "Files to purge...."
    $1| while read dm_file
    do   
  day=`perl -MPOSIX -le 'print strftime "%d", localtime((lstat)[9]) for @ARGV' "$dm_file"`
  mon=`perl -MPOSIX -le 'print strftime "%b", localtime((lstat)[9]) for @ARGV' "$dm_file"`
        year=`perl -MPOSIX -le 'print strftime "%Y ", localtime((lstat)[9]) for @ARGV' "$dm_file"`
          dday=`expr $day + 0`
    
    cntr=0
    cntr2=0
    flag1=0
    flag2=0
    flag3=0
        #This is list of files for same month & year of $dm_file for more than 180 days old
        ls -ltr * |nawk -v mon=$mon -v year=$year '{if ($8 == year && $6 == mon) {print $9}}'| while read inner_file
         do
            imfile=`find $tradecheck -name $inner_file`
            i_day=`perl -MPOSIX -le 'print strftime "%d", localtime((lstat)[9]) for @ARGV' "$imfile"`
            i_dday=`expr $i_day + 0`
            purge_first "$dday" "$i_dday"
            purge_last "$dday" "$i_dday"
         done
         
        if [ $flag1 -eq 0 ] && [ $flag2 -eq 0 ] && [ $flag3 -eq 0 ]; then
         echo $dm_file $day $mon $year    
        fi
  
 done
}
#For confirming file not the last file's date
function purge_last
{
if [ $1 -ge $2 ]; then
 flag3=1
else
 flag3=0
 break    
fi
}
#For confirming file not the first two file's date
function purge_first
{
if [ $1 -le $2 ]; then
 flag1=1
else
   
 if [ $cntr2 -eq 0 ]; then
  check_day=$2
  cntr2=`expr $cntr2 + 1`
 fi
 
 if [ ! $check_day -eq $2 ]; then
  cntr=`expr $cntr + 1`
 fi
fi
if [ $cntr -eq 0 ]; then
 flag2=1
else
 flag1=0
 flag2=0
fi
}
  
# purge the files which are 180 days older
cd $XXXDIR
var3="find . ! -name -prune -type f -mtime +180"
file_purge "$var3"

XXXDIR=/abc/def/ghi
#not months first two & last one
function file_purge
{
    tradecheck=`pwd`
 echo "Files to purge...."
    $1| while read dm_file
    do   
  day=`perl -MPOSIX -le 'print strftime "%d", localtime((lstat)[9]) for @ARGV' "$dm_file"`
  mon=`perl -MPOSIX -le 'print strftime "%b", localtime((lstat)[9]) for @ARGV' "$dm_file"`
        year=`perl -MPOSIX -le 'print strftime "%Y ", localtime((lstat)[9]) for @ARGV' "$dm_file"`
          dday=`expr $day + 0`
    
    cntr=0
    cntr2=0
    flag1=0
    flag2=0
    flag3=0
        #This is list of files for same month & year of $dm_file for more than 180 days old
        ls -ltr * |nawk -v mon=$mon -v year=$year '{if ($8 == year && $6 == mon) {print $9}}'| while read inner_file
         do
            imfile=`find $tradecheck -name $inner_file`
            i_day=`perl -MPOSIX -le 'print strftime "%d", localtime((lstat)[9]) for @ARGV' "$imfile"`
            i_dday=`expr $i_day + 0`
            purge_first "$dday" "$i_dday"
            purge_last "$dday" "$i_dday"
         done
         
        if [ $flag1 -eq 0 ] && [ $flag2 -eq 0 ] && [ $flag3 -eq 0 ]; then
         echo $dm_file $day $mon $year    
        fi
  
 done
}
#For confirming file not the last file's date
function purge_last
{
if [ $1 -ge $2 ]; then
 flag3=1
else
 flag3=0
 break    
fi
}
#For confirming file not the first two file's date
function purge_first
{
if [ $1 -le $2 ]; then
 flag1=1
else
   
 if [ $cntr2 -eq 0 ]; then
  check_day=$2
  cntr2=`expr $cntr2 + 1`
 fi
 
 if [ ! $check_day -eq $2 ]; then
  cntr=`expr $cntr + 1`
 fi
fi
if [ $cntr -eq 0 ]; then
 flag2=1
else
 flag1=0
 flag2=0
fi
}
  
# purge the files which are 180 days older
cd $XXXDIR
var3="find . ! -name -prune -type f -mtime +180"
file_purge "$var3"