刪除文件夾里的文件除了指定的文件名

luyi1983

要?jiǎng)h除目錄下的文件。但是符合指定文件名的一些文件要保留。
有沒(méi)有現(xiàn)成的包可以有。
還是只有寫(xiě)個(gè)遞歸，再foreach判斷是否是要保留的文件名。
這樣會(huì)不會(huì)效率太低？

謝過(guò)先

蘭花仙子

File::Find does anything you think of even something you can't think.

kevin_w_sh

文件數(shù)量有多大?一般問(wèn)題不大

如果超過(guò)一定的數(shù)量,比如5000個(gè)小文件以上可能會(huì)慢

你可以設(shè)循環(huán)到5000 次,你就來(lái)個(gè)sleep 1 秒,cpu 就不會(huì) 暴

Perlvim

仙子現(xiàn)在電腦好像把中文輸入法都刪除了。
File::Find::Wanted qw(find_wanted);

my @files = find_wanted(sub { -f & /\.bmp/}, $dir);

luyi1983

回復(fù) 2# 蘭花仙子


    Thanks.
    So I could use 'unlink' in the 'wanted' function by checking regex if it match or unmatch the pattern.
    Just like use find2perl to generate perl subroutine.