Re^2: how to get the all the subdirectories path from the directory

I don't think those do what you think they do. Here are some options:

use File::Find;

#print all entries at or below starting dir:
find ( sub { print $File::Find::name,"\n" }, '.' );

#print all directories at or below starting dir:
find ( sub { next unless -d; print $File::Find::name,"\n"; }, '.' );

#print all entries, trailing directories with a '/':
find ( sub { print $File::Find::name,(-d $_ ? '/' : ''),"\n" },'.' );
[download]

<-radiant.matrix->
A collection of thoughts and links from the minds of geeks
The Code that can be seen is not the true Code
I haven't found a problem yet that can't be solved by a well-placed trebuchet

Comment on Re^2: how to get the all the subdirectories path from the directory Download Code