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

[radiantmatrix]

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" },'.' );