perl – 如何找到给定目录中最大的10个文件？

如何使用Perl或 Bash找到给定目录中最大的10个文件？

编辑：

>我需要这是递归的.
>我只想看大文件,没有大目录.
>我需要这个才能在Mac OS X 10.6(查找版本)上运行.

解决方法

这将从当前目录递归打印10个最大的文件.

find . -type f -printf "%s %p\n" | sort -nr | awk '{print $2}' | head -10