删除目录下最大的三文件

哈,今天群里说有一面试题:

删除一目录下最大的三个文件,shell,python,perl都可以

顺便用perl写了一个:

 

#!/usr/bin/perl -w

use strict;
use File::Find;
my $times = 3;
my $dir = "/tmp";
my @files;
sub files {
if(-f $File::Find::name){
push @files,$File::Find::name;
}
}
find(\&files,$dir);
my @maxfiles =
map $_->[0],
sort { $b->[1] <=> $a->[1] }
map [ $_, -s $_ ],
@files;
while($times){
my $delfile = pop @maxfiles;
unlink "$delfile";
$times--;
}