服务器自动删除文件的脚本
更新时间：2013年08月22日 18:47:17 作者：
加入系统 计划程序中，自动清理垃圾文件，如不需要的日志文件，需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
支持匹配路径 匹配文件名 多久没有访问的自动清理
复制代码 代码如下:
#用于各系统清理文件脚本，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
相关文章
不错的mod_perl编程的简单应用实例介绍...2007-03-03
perl 控制结构 条件控制 if while...2007-11-11
加入系统 计划程序中，自动清理垃圾文件，如不需要的日志文件，需要的朋友可以参考下2013-08-08
详细说明什么是Perl...2007-11-11
perl 文件读写详细说明...2007-11-11
这篇文章主要介绍了Perl调用shell命令方法小结,需要的朋友可以参考下2014-05-05
perl 列表和数组变量详解...2007-11-11
perl 子程序 sub...2007-11-11
下面主要是在学习过程中的一些常见的问题。记录下，方便大家学习。2009-12-12
这篇文章主要介绍了Perl内置特殊变量总结,需要的朋友可以参考下2014-05-05
最新评论