linux – 删除除最新文件之外的所有内容

发布时间：2020-12-13 18:19:58 所属栏目：Linux 来源：网络整理

导读：可以说我有一个目录?oo/,其中包含许多目录结构中的大量文件.我需要保留其中一些,但不是全部. 有没有办法(到位)删除所有这些,除了(比如说)500最新？解决方法我定期执行此任务,并使用以下变体.它是一个组合各种简单工具的管道：查找所有文件,添加文件修改时

可以说我有一个目录?oo/,其中包含许多目录结构中的大量文件.我需要保留其中一些,但不是全部.

有没有办法(到位)删除所有这些,除了(比如说)500最新？

解决方法

我定期执行此任务,并使用以下变体.它是一个组合各种简单工具的管道：查找所有文件,添加文件修改时间,排序,删除文件修改时间,首先显示除500之外的所有行,然后删除它们：

find foo/ -type f | perl -wple 'printf "%12u ",(stat)[9]' | 
    sort -r | cut -c14- | tail -n +501 | 
    while read file; do rm -f -- "$file"; done

一些评论：

>如果您使用“bash”,则应使用“read -r file”,而不仅仅是“read file”.
>使用“perl”删除文件更快(并且还比while循环更好地处理文件名中的“怪异”字符,除非您使用“read -r file”)：

... | tail -n +501 | perl -wnle 'unlink() or warn "$_: unlink failed: $!n"'

>某些版本的“tail”不支持“-n”选项,因此必须使用“tail 501”.跳过500首行的便携方式是

... | perl -wnle 'print if $. > 500' | ...

>如果您的文件名包含换行符,则无效.
>它不需要GNU查找.

结合以上内容为您提供：

find foo/ -type f | perl -wple 'printf "%12u ",(stat)[9]' | 
    sort -r | cut -c14- | perl -wnle 'print if $. > 500' | 
    perl -wnle 'unlink() or warn "$_: unlink failed: $!n"'

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!