Linux

#!/bin/ksh

epoch_sec()
{
        perl -e '
                use Time::Local;

                $fmt = "%s";  # %s = seconds in epoch
                $mday = substr("$ARGV[0]", 6, 2);
                $mon =  substr("$ARGV[0]", 4 ,2);
                $year = substr("$ARGV[0]", 0 ,4);
                $hour = substr("$ARGV[0]", 8 ,2);
                $min =  substr("$ARGV[0]", 10 ,2);
                $sec = substr("$ARGV[0]", 12 ,2);
                $time = timelocal($sec,$min,$hour,$mday,$mon,$year);
                print int $time;
                ' "$1"
}

time_now=$( date -u "+%Y%m%d%H%M%S" )

echo ""
echo "Deletion Progress. Directory ${my_dir}. Time Now: $time_now."
echo "========================================================================================"

file_count=0
delete_file_count=0

for file in `find ${my_dir}/ -name "*_report_??????????????.gz" -print`
do
        file_count=`expr $file_count + 1`

        filedate=`echo $file | sed -e 's/^.*_report_//g' -e 's/\.gz$//g'`
        today=$( date -u "+%Y%m%d%H%M%S" )

        # Calculate Epochs
        timenow_epoch=$( epoch_sec $today )
        file_epoch=$( epoch_sec $filedate )

        # Work out difference
        diff=$(( $timenow_epoch - $file_epoch ))

        # 259200 = 3 days
        if [[ $diff -gt 259200 ]] ; then
                echo ""
                echo "File: [$file]"
                echo "   File Date: $filedate"
                echo "   Remove [$file]!."
                echo ""
                delete_file_count=`expr $delete_file_count + 1`
          
                rm -f $file 
        fi
done