Recursivly scan a folder, and files?

[youradds]

Does anyone have any code that will work on both UNIX and NT, and scan both folders and files?

Any help is much appreciated

Cheers

Andy

 

[MikeLacey]

Andy,

The thread thread219-447155 (which was at the top of the thread-list when you posted) talks about this and gives two solutions. Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

 

[MrGabe]

Short answer:

@DIRLIST = qw(.) unless @DIRLIST; #I always have my scripts in the 'root' directory to be scanned, which works with this line.
use File::Find;
sub process_file {
print "$File::Find::name\n"; # or whatever;
}
find(\&process_file, @DIRLIST);

Good Luck,

-Gabe

 

[youradds]

Thanks...worked a treat