#!/usr/bin/perl
`find /bak/ >list.txt`;
open LIST,"/root/list.txt";
while (<LIST>){
chomp;
open TEST,"$_";
if ( -d TEST ){
close TEST;
}
else{
close TEST;
$mtime= -M $_;
if ($mtime > 60){
print "$_ old than 60 day!!\n";
unlink $_;
}
}
}
相关文章
- 09-23删除win10无限嵌套文件夹
- 09-23shift delete删除的文件怎么恢复,神操作只用一招
- 09-23删除GitHub或者GitLab 上的文件夹,git rm -r --ceched 文件夹名 ,提交commit,git push
- 09-234、撤销修改三场景、删除文件、误删恢复
- 09-23删除指定路径下固定格式,以.log结尾、三天前的文件,或删除空的日志文件
- 09-23svn删除所有.svn文件
- 09-23Inno setup 卸载时删除程序文件夹(文件)
- 09-23WIN7使用过360系统急救箱后出现的任务计划程序文件夹删除的办法
- 09-230权限管理--用户介绍;用户与组相关文件;用户管理命令之用户创建、查看、删除、修改
- 09-23权限管理--用户介绍;用户与组相关文件;用户管理命令之用户创建、查看、删除、修改