服務(wù)器自動(dòng)刪除文件的腳本
支持匹配路徑 匹配文件名 多久沒(méi)有訪(fǎng)問(wèn)的自動(dòng)清理
#用于各系統(tǒng)清理文件腳本,filepath reg_filename fileatime
#author Foyon0806@gmail.com
#date 2013-8-22 14:51:52
#!/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
相關(guān)文章
perl 控制結(jié)構(gòu) 條件控制 if while
perl 控制結(jié)構(gòu) 條件控制 if while...2007-11-11
不錯(cuò)的一篇學(xué)習(xí)CGI腳本(腳本)
不錯(cuò)的一篇學(xué)習(xí)CGI腳本(腳本)...2007-07-07
Perl語(yǔ)言入門(mén)三部曲 附電子書(shū)下載
Perl語(yǔ)言入門(mén)三部曲 附電子書(shū)下載,想要學(xué)習(xí)perl語(yǔ)言的朋友可以參考下2012-08-08

