我正在尝试获取指定路径中所有目录的名称。
我尝试了以下方法,但这给了我指定路径下每一层级的目录名称,而不仅仅是该路径下的目录名称。
我尝试了以下方法,但这给了我指定路径下每一层级的目录名称,而不仅仅是该路径下的目录名称。
find(\&dir_names, "C:\\mydata\\");
sub dir_names {
print "$File::Find::dir\n" if(-f $File::Find::dir,'/');
}