删除文件夹里的文件除了指定的文件名

luyi1983

要删除目录下的文件。但是符合指定文件名的一些文件要保留。
有没有现成的包可以有。
还是只有写个递归，再foreach判断是否是要保留的文件名。
这样会不会效率太低？

谢过先

兰花仙子

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

kevin_w_sh

文件数量有多大?一般问题不大

如果超过一定的数量,比如5000个小文件以上可能会慢

你可以设循环到5000 次,你就来个sleep 1 秒,cpu 就不会 暴

Perlvim

仙子现在电脑好像把中文输入法都删除了。
File::Find::Wanted qw(find_wanted);

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

luyi1983

回复 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.