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

[gube]

Hi try this,

use File::Find;
find(\&file_names, "/home/gube/");
sub file_names {
print "$File::Find::name\n" if(-f $File::Find::name);
}

Update : If you want to find only the directories use this code:

use File::Find;
find(\&dir_names, "/home/gube/");
sub dir_names {
 print "$File::Find::dir\n" if(-f $File::Find::dir,'/');
}

Regards, Gube.

[mickeyn]

I agree with Gube about using File::Find.
But you don't need to bother writing the code, just use find2perl:

find2perl . -type d

will generate the code for you:

Read more... (928 Bytes)
you can use 'find2perl' to convert 'find' syntax to perl code.

Enjoy,
Mickey

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