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