Perl перебирает каталоги

Question

Я пытаюсь получить имя всех каталогов по указанному пути

Я пробовал следующее, но это дает мне каждый уровень вниз не только по указанному мной пути

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

Answer 1

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

Answer 2

Используйте opendir вместо

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

EDIT:

"Это даст все файлы, а не только каталоги. Вам все равно придется выполнить grep."

Да, и в этом случае вы можете просто использовать оператор проверки файлов, чтобы увидеть, является ли это каталогом или нет.

В Windows:

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

Answer 3

См. Главу 2 Файловые системы из Автоматизация системного администрирования с Perl . Это дает нам следующее:

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.
        }
    }
}

Answer 4

glob или readdir, вероятно, тоже будет моим выбором.Другой способ сделать это - использовать команду windows dir для выполнения работы:

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