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

Question

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

编辑:

• 我需要这个是递归的.
• 我只想看大文件,没有大目录.
• 我需要这个在Mac OS X 10.6(发现版本)上工作.

Answer 1

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

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

Answer 2

$ alias ducks
alias ducks='du -cs * |sort -rn |head -11'

Answer 3

这是在perl中执行此操作的一种方法.(注:非递归版,根据问题的早期版本)

perl -wE 'say for ((sort { -s $b <=> -s $a } </given/dir/*>)[0..9]);'

但是,我确信有更好的工具可以完成这项工作.

ETA:递归版,使用File :: Find:

perl -MFile::Find -wE '
    sub wanted { -f && push @files, $File::Find::name }; 
    find(\&wanted, "/given/dir"); 
    @files = sort { -s $b <=> -s $a } @files; 
    say for @files[0..9];'

要检查文件大小,请printf("%-10s : %s\n", -s, $_) for @files[0..9];改为使用eg .