忽略带有glob的目录

Question

我有一些分析目录的代码，以获取保存各种设备主机名的文件。但是，我希望glob忽略一定深度的目录，这可能吗？所以，举个例子

 my @files = glob('/tftpboot/configs/*/*');

我的文件夹架构看起来像

/tftpboot/configs/core/router1 (where router1 is a file)
/tftpboot/configs/test/router2 (where router2 is a file)
/tftpboot/configs/test/firewall/context (context is a file)

我想得到文件router1，router2和任何类似深度的文件。但是，我想忽略上下文--任何深度的文件。有什么建议吗？

谢谢

Answer 1

采取以下后续行动：

@files = grep { !-d $_ } @files;
  -or-
@files = grep { -f $_ } @files;

您还可以使用类似于档案：：查找：：规则的东西。

my @files = File::Find::Rule->file->in('/tftpboot/configs');