解决方法
我定期执行此任务,并使用以下变体.它是一个组合各种简单工具的管道：查找所有文件,添加文件修改时间,排序,删除文件修改时间,首先显示除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"'
