为了在目录上编写清理脚本,我需要查看所有超过一天的文件。此外,我需要按照修改时间的相反顺序删除它们(最旧的先删除),直到达到指定的大小。
我提出了以下列出文件的方法:
find . -mtime +1 -exec ls -a1rt {} +
我说得对吗,这对大量文件不起作用(因为将执行多个"ls")?在这种情况下,我该如何实现我的目标?
您可以使用以下命令查找10个最旧的文件:
find . -mtime +1 -type f -printf '%T@ %pn' | sort -n | head -10 | awk '{print $2}'
使用的步骤:
- 对于
find
返回的每个文件,我们打印修改时间戳和文件名 - 然后我们按照时间戳进行数字排序
- 我们先取10
- 我们只打印文件名部分
稍后,如果您想删除它们,可以执行以下操作:
rm $(...)
在哪里。。。是上面描述的命令。
这里有一个perl脚本,您可以使用它首先删除给定目录中最旧的文件,直到目录中文件的总大小降到给定大小:
&CleanupDir("/path/to/directory/", 30*1024*1024); #delete oldest files first in /path/to/directory/ until total size of files in /path/to/directory/ gets down to 30MB
sub CleanupDir {
my($dirname, $dirsize) = @_;
my($cmd, $r, @lines, $line, @vals, $b, $dsize, $fname);
$b=1;
while($b) {
$cmd="du -k " . $dirname . " | cut -f1";
$r=`$cmd`;
$dsize=$r * 1024;
#print $dsize . "n";
if($dsize>$dirsize) {
$cmd=" ls -lrt " . $dirname . " | head -n 100";
$r=`$cmd`;
@lines=split(/n/, $r);
foreach $line (@lines) {
@vals=split(" ", $line);
if($#vals>=8) {
if(length($vals[8])>0) {
$fname=$dirname . $vals[8];
#print $fname . "n";
unlink $fname;
}
}
}
} else {
$b=0;
}
}
}