in reply to File::Find Question

There's a few bits of your sample code that don't seem right: Your test sub could be written more simply:
sub get_good_int { next if /^unknown/; print "My filename is: $_\n"; }
Something closer to being useful might be this:
use File::Find; use File::Basename; find (\get_good_int, '/nfs/export/netflow/intermediate'); sub get_good_int { next if /^unknown/; # If the directory path includes this type of dir if ($File::Find::dir =~ m#/questionable-\d{6}-\d{6}#) { myfunc1($_); } # If it contains this other type of dir elsif ($File::Find::dir =~ m#/\d{6}-\d{6}#) { myfunc2($_); } }
buckaduck