Hi,
I have this snippet of code in which I am trying to print out all the directories. It does not work using the -d, but -f does print all the files. Why doesn't -d work for directories? What am I doing wrong? This should be a pretty basic question for an experienced Perl programmer.
<code>
use strict;
use File::Find;
sub wanted
{
if (-d $File::Find::name)
{
print "$File::Find::name\n";
}
}
find(\&wanted, 'C:/');
</code>
many thanks,
Barry
I have this snippet of code in which I am trying to print out all the directories. It does not work using the -d, but -f does print all the files. Why doesn't -d work for directories? What am I doing wrong? This should be a pretty basic question for an experienced Perl programmer.
<code>
use strict;
use File::Find;
sub wanted
{
if (-d $File::Find::name)
{
print "$File::Find::name\n";
}
}
find(\&wanted, 'C:/');
</code>
many thanks,
Barry
Learn from the best
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.