perl遍历目录

发布时间：2020-12-15 21:41:35 所属栏目：大数据来源：网络整理

导读：我正在尝试获取指定路径中所有目录的名称我尝试了以下但是这给了我每个级别而不仅仅是在我指定的路径上 find(dir_names,"C:mydata");sub dir_names { print "$File::Find::dirn" if(-f $File::Find::dir,'/');} 解决方法 my @dirs = grep { -d } glob

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

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

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

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!