サーバー自動的にファイルを削除用perlスクリプト

2014年6月13日

ファイル名：

delscript.sh

サンプルコード：

#!/bin/sh
if [ $# -eq 0 ];then
echo “Usage: sh auto_clear_file.sh clear_filepath clear_regfilename filecreatetime"
echo “eg: sh auto_clear_file.sh /tmp/log/ user_log -7day"
exit
fi
filepath=$1
regfilename=$2

if [ “-$3" = “-" ];then
filectime=`date -d -7day '+ %s’`
else
filectime=`date -d $3 '+ %s’`
fi
log=`ls $filepath | grep $regfilename`
echo $log
for file in ${log}
do
echo $file
fileatime=`stat -c %X ${filepath}${file}`
if [ ${fileatime} -lt ${filectime} ]; then
opt=`rm -f ${filepath}${file}`
echo $opt
fi
done