perl遍历目录

我正在尝试获取指定路径中所有目录的名称

我尝试了以下但是这给了我每个级别而不仅仅是在我指定的路径上

find(\&dir_names, "C:\\mydata\\");
sub dir_names {
    print "$File::Find::dir\n" if(-f $File::Find::dir,'/');
}
最佳答案
my @dirs = grep { -d } glob 'C:\mydata\*';

转载注明原文:perl遍历目录 - 代码日志