Hmmm, yesish. I get the following odd results:

use File::Find;
find (\&ProcessDirTree, './_NewExtensionTemplate');

sub ProcessDirTree
{
print "Dir: $File::Find::name\n" if -d $File::Find::name;
print "File: $File::Find::name\n" unless -d $File::Find::name;
}

File: ./_NewExtensionTemplate
File: ./_NewExtensionTemplate/0_0
File: ./_NewExtensionTemplate/0_0/Inputs
File: ./_NewExtensionTemplate/0_0/Inputs/ReadMe''.rtf
File: ./_NewExtensionTemplate/0_0/Inputs/Build
File: ./_NewExtensionTemplate/0_0/Inputs/Build/build.bld
File: ./_NewExtensionTemplate/0_0/Inputs/Build/Build.macros
File: ./_NewExtensionTemplate/0_0/Inputs/Build/NotATag.txt
[download]

where I would expect:

Dir: ./_NewExtensionTemplate
Dir: ./_NewExtensionTemplate/0_0
Dir: ./_NewExtensionTemplate/0_0/Inputs
File: ./_NewExtensionTemplate/0_0/Inputs/ReadMe''.rtf
Dir: ./_NewExtensionTemplate/0_0/Inputs/Build
File: ./_NewExtensionTemplate/0_0/Inputs/Build/build.bld
File: ./_NewExtensionTemplate/0_0/Inputs/Build/Build.macros
File: ./_NewExtensionTemplate/0_0/Inputs/Build/NotATag.txt
[download]

Within "wanted", you want to use "$_", not "$File::Find::name", because you are chdir'ed down into the directory. Just use "-d" for example, because it defaults to $_.

So, your code would look like:

use File::Find;
find (\&ProcessDirTree, './_NewExtensionTemplate');

sub ProcessDirTree
{
print "Dir: $File::Find::name\n" if -d;
print "File: $File::Find::name\n" unless -d;
}
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Smacks forehead with palm of hand and wanders red-faced off into the distance muttering "I knew that, I knew that"!

Thanks merlyn!

---

Perl is Huffman encoded by design.