File::Find for non recursive searching

[spperl]

Hi,

Hopefully someone can help here... my question is as follows:

Is there a way to configure File::Find so that it 'stays' in the top directory and does not perform a recursive search?

example of what I have that is not working?

my @fileList=();
  find ( { wanted   => sub {push @fileList, $File::Find::name if(!-d)}, no_chdir => 1 }, "/temp/");

Depending on selection my application will need to search recursively or only on the top / starting level.

Any help would be appreciated.

Thanks

 

[KevinADC]

Don't use File::Find if you only want to search one directory, Use opendir() and grep().

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Annihilannic]

I can see why you'd want to use generic code with File::Find rather than Kevin's suggestion to save writing different code for the two options.

You may find the find2perl utility useful if you are familiar with the Unix find utility and its -prune syntax, otherwise experiment with setting $File::Fine:rune = 1 at the appropriate times in your &wanted function to prevent further descent into the directory structure.

Annihilannic.

 

[ishnid]

Another alternative is to use File::Find::Rule, which allows you to set a maxdepth option.

no_chdir isn't designed to do what you're looking for BTW.

 

[KevinADC]

You can use $File::Find:rune to prevent descending into a directory, trick is getting it to work.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[KevinADC]

There is an example of its use on this page:

http://johnbokma.com/mexit/2007/03/01/perl-recursive-sub-lister.html

------------------------------------------
- Kevin, perl coder unexceptional!