My first ever question here was exactly this and I got a whole load of useful replies.

use File::Find;
my @DIR;
my $dir = '/home/www/';
find( \&wanted , $dir);
sub wanted { push(@DIRS, $File::Find::dir."/".$_) if -d $_; }
[download]

Thanks

That's almost what I want but lists all the sub-directories below /home/www.

What I actually want is the third-level directories only i.e. the name_of_virtual_host directories only in the array, not all the directories below this level too.

My directory structure is /home/www/name_of_virtual_host/dir4/dir5/etc.

Can I use finddepth here to recurse down to the third level directories only?

Wylie

well in this case I would simply do something like:


opendir(DIR, '/home/www/');
while (my $dir = readdir(DIR)) {
    print $dir;
    next if $dir =~ /^\.\.?$/ || ! -d $dir;
    push(@dirs, $dir);
}
closedir(DIR);
[download]

=> Code is untested but should work.

giant

Why flagellate yourself writing $File::Find::dir."/".$_ when there's $File::Find::name? :)

Makeshifts last the longest.

Historically that's what novice monks liked to do (grin).

This is a bit LISPy, but it will work:

chdir "/home/www";
opendir DIR, ".";
my @third_level_dirs =
    (
     # 3. This tests for their presence
     grep { -d }
        (
         # 2. This adds /logs to the end
         map { "$_/logs" }
             (
              # 1. this returns all directories but . & ..
              grep { !/^\.\.?$/ && -d } (readdir DIR)
             )
        )
    );
closedir DIR;
[download]

grep { !/^\.\.?$/ && -d }

Careful: a directory called ..\n would fall through the cracks using $ as "end of string" match. You want grep { !/\A\.\.?\z/ && -d } But we don't have to use a regex for everything. grep { $_ ne '.' and $_ ne '..' and -d } ____________
Makeshifts last the longest.

Thanks for your help Aristotle.

Here's what I ended up with:

chdir "/home/www";
opendir DIR, ".";
my @third_level_directories_only=
    (
     grep { $_ ne '.' and $_ ne '..' and -d } (readdir DIR)
    );

closedir DIR;
[download]

This puts the names of all my third level directories (my virtual hosts) into any array.