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

Hi try this,

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

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,'/');
}
[download]

Regards, Gube.

Comment on Re: how to get the all the subdirectories path from the directory Select or Download Code

Replies are listed 'Best First'.
Re^2: how to get the all the subdirectories path from the directory by mickeyn (Priest) on Mar 09, 2006 at 08:35 UTC
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... (882 Bytes) you can use 'find2perl' to convert 'find' syntax to perl code. Enjoy, Mickey	[reply] [d/l] [select]
Re^2: how to get the all the subdirectories path from the directory by radiantmatrix (Parson) on Mar 09, 2006 at 16:27 UTC
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	[reply] [d/l]