我尝试了以下但是这给了我每个级别而不仅仅是在我指定的路径上
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\*';
