Обеспечение TechNet лицензировало сервер в производство

Иногда Perl может творить чудеса в случаях как это. Вы уже попробовали, если маленький сценарий, такой как это мог бы превзойти по характеристикам удар и основные команды оболочки?

#!/usr/bin/perl 
open(ANNOYINGDIR,"/path/to/your/directory");
@files = grep("/*\.png/", readdir(ANNOYINGDIR));
close(ANNOYINGDIR);

for (@files) {
    printf "Deleting %s\n",$_;
    unlink $_;
}

Или другой, возможно, еще быстрее, подход Perl:

#!/usr/bin/perl
unlink(glob("/path/to/your/directory/*.png")) or die("Could not delete files, this happened: $!");

Править: Я просто дал моим сценариям Perl попытку. Более подробный делает что-то правильно. В моем случае я попробовал это виртуальным сервером с 256 МБ RAM и полумиллиона файлов.

time find /test/directory | xargs rm результаты:

real    2m27.631s
user    0m1.088s
sys     0m13.229s

по сравнению с

time perl -e 'opendir(FOO,"./"); @files = readdir(FOO); closedir(FOO); for (@files) { unlink $_; }'

real    0m59.042s
user    0m0.888s
sys     0m18.737s