忽略與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) 

我想獲得的文件路由器1，路由器2和類似深度的任何文件。不過，我想忽略任何文件的深度。有什麼建議麼？

謝謝

Answer 1

跟進：

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

您也可以使用類似File::Find::Rule。

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