If you choose to work directly with File::Find, keep in mind that nearly everything you would normally do on the command line with find you do inside of the visitor function ($wanted in the File::Find documentation). So if you want to exclude things by extension you would do something like this (pseudo code):

sub doForEachFile {
   if ($File::Find::name !~ /\.[oa]$/) {
      #we have what we want...do what ever;
   }
}
[download]

Best, beth

Very minor syntax preference: If I'm looking to exclude files, I generally return from the 'wanted' function, which just reduces the level of indentation in the subroutine. For example:


sub doForEachFile {
   return if $File::Find::name =~ /\.[oa]$/;
      
   #we have what we want...do what ever;
}
[download]

Does the same thing as your code, just organized a bit differently.

use File::Finder; # in the CPAN
my @files = File::Finder->depth->type('f')->not->name('*.[ao]')->in('/
+h');
[download]

This is only slightly tested but I think it's right-

use File::Find::Rule;

my @files = File::Find::Rule->file()
    ->not( File::Find::Rule->new->name("*.[!ao]") )
    ->in(".");

print join("\n", @files), "\n";
[download]

File::Find::Rule. Much easier interface than File::Find (update: fixed backwards names).

(update: thanks to afoken below; ("*.[!ao]") should not have the bang: ("*.[ao]"), and merlyn's example is probably more in line with what you're after.)

->not( File::Find::Rule->new->name("*.[!ao]") )

I think there should be only one negation. As only *.a and *.o should be ignored, the inner rule should be ...->name('*.[ao]').

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)