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 );