Re: File::find with no_chdir

[Jack Faley ( Who's going to take me serious without a laser pointer?)]

On 9/18/06, Emilio Casbas <[EMAIL PROTECTED]> wrote:

Hi,

I have this script;

-------
use File::Find;

$File::Find::no_chdir = 0;
find(\&wanted, @ARGV);

sub wanted {
        print "$File::Find::name\n" if(-d);
        }

-------

I want to do a directory search for a given ARG, but no a recursive
search, for example
this script show this;

[EMAIL PROTECTED] tmp]# perl script.pl /tmp
/tmp
/tmp/.ICE-unix
/tmp/test_directory
/tmp/test_directory/directory1
/tmp/test_directory/directory1/directory2
/tmp/test_directory/directory1/directory2/directory3
/tmp/lost+found
/tmp/.font-unix

But i want a behaviour like this command;
[EMAIL PROTECTED] tmp]# find /tmp -type d -maxdepth 1
/tmp
/tmp/.ICE-unix
/tmp/test_directory
/tmp/lost+found
/tmp/.font-unix

Any help?

Thanks
Emilio C.

I believe you want to use the Prune option. This covers it with an earlier
example:
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/7ffb588d4a3e67d/21c98bb6a9984979?lnk=st&q=%24File%3A%3AFind%3A%3Aprune&rnum=1#21c98bb6a9984979