perl iterate through directories

I'm trying to get the name of all directories in the specified path

I tried the following but that gives me every level down not just at the path i specified

find(\&dir_names, "C:\\mydata\\");
sub dir_names {
    print "$File::Find::dir\n" if(-f $File::F开发者_开发知识库ind::dir,'/');
}

my @dirs = grep { -d } glob 'C:\mydata\*';

Use opendir instead

opendir DIR, $dirname or die "Couldn't open dir '$dirname': $!";
my @files = readdir(DIR); 
closedir DIR; 
#next processing... 

EDIT:

"This will give all the files, not just the directories. You'd still have to grep."

Yes, and in that case you can just use file test operator to see whether it's a directory or not.

In Windows:

$dirname="C:\\";
opendir(DIR, $dirname);
@files = readdir(DIR);
closedir DIR;
foreach $key (@files)
 {
  if(-d "$dirname\\$key")
   {
     print "$key\n";
   }
 } 

See chapter 2 Filesystems from Automating System Administration with Perl. That provides us with this:

sub ScanDirectory{
    my ($workdir) = shift;
    chdir($workdir) or die "Unable to enter dir $workdir:$!\n";
    opendir(DIR, ".") or die "Unable to open $workdir:$!\n";
    my @names = readdir(DIR) or die "Unable to read $workdir:$!\n";
    closedir(DIR);

    foreach my $name (@names){
        next if ($name eq "."); 
        next if ($name eq "..");

        if (-d $name){                  # is this a directory?
            #Whatever you want to do goes here.
        }
    }
}

glob or readdir would probably be my choice too. Another way to do it is to use the windows dir command to do the job:

my @dirs = qx(dir /AD /B);
chomp @dirs;