Perl：如何全局访问所有且仅子目录？

Question

我正在尝试编写一个 Perl 脚本来执行预排序目录遍历。我需要它来获取给定目录的所有子目录，包括隐藏的子目录。不幸的是，当我尝试以这种方式进行通配时：

<$dir/* $dir/.*>

...“.*”导致“.”和“..”也会被返回，这会扰乱我的函数，因为它会导致无限循环。如何仅获取 $dir 的子文件夹（常规和隐藏），而不当前或上层目录？

例如，如果我的文件夹是“dir”并且它包含以下子目录：

hello
.hiddendir
“名称中带有空格的目录”
“.hidden 目录，名称中带有空格”
dir2

...我想得到一个只有这些而不是“.”的数组或者 ”..”。

我不在乎文件是否也出现，因为我稍后使用“if (-d $dir)”。有没有办法可以测试通配数组的元素是否等于当前目录或父目录，以便我可以排除它们？

谢谢

Answer 1

perl -MFile::Find::Rule -E'
   say
      for
         File::Find::Rule->directory->in(".");'

或

perl -MFile::Find::Rule -E'
   say
      for
          grep $_ ne ".",
             File::Find::Rule->directory->in(".");'

File::Find::Rule

Answer 2

只需使用 grep 来过滤掉 .和..目录：

grep { !/^\.{1,2}$/ } <$dir/* $dir/.*>

Answer 3

File::Slurp 中的 read_dir 函数自动排除默认情况下，. 和 ..。