如何检查Perl中的子子目录？

Question

我有一个名为Client的文件夹,其中包含许多子文件夹.我想创建一个Perl脚本来查看每个子文件夹并检查那里的文件夹.如果它在那里,我想跳过它并继续前进,如果不存在,我想创建它并进行一些处理.

如何循环遍历所有子文件夹并检查我想要的目录？我已经找到了很多关于如何获取文件夹和/或子文件夹中的所有文件的信息,但没有检查每个子文件夹中的目录.

Answer 1

Augh!其他答案太复杂了.原始问题似乎不是要求递归遍历.据我所知,这是一个非常明智的解决方案,并且更具可读性:

foreach my $dir (glob "Client/*") {
    next if ! -d $dir;              # skip if it's not a directory
    next if -d "$dir/subfolder";    # skip if subfolder already exists
    mkdir "$dir/subfolder" or die;  # create it
    do_some_processing();           # do some processing
}

认真的人:opendir/readdir？真？