Perl：Glob 子目录递归

Question

如何使用 glob 递归地在数组中包含子目录？

我目前有 my @files = glob $PATH . '/*';（其中 $PATH = "."），但这不包括子目录。

Answer 1

我从 Here

找到了我的答案

我刚刚将 @files 更改为 my @files = File::Find::Rule->in($PATH);

Answer 2

如果您喜欢使用标准模块，可以使用此代码。

use strict;
use warnings;
use File::Find;

my @files;
find( { wanted => sub { push @files, $_ }, no_chdir => 1 }, $PATH );