Perl：递归的全局子目录答案

【问题标题】：Perl: Glob subdirectories recursivelyPerl：递归的全局子目录
【发布时间】：2015-03-18 17:50:57
【问题描述】：

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

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

【问题讨论】：

回复。 “很遗憾，即使 $WatchSubTree 设置为 1，它似乎也无法监视子目录。” 这可能只是一个错字，但您的@files 数组是否包含子目录与 @ 是否包含子目录无关987654324@ 正在监视他们。
后来我意识到我的问题完全是关于 @files 数组而不是关于 ChangeNotify。我已经相应地修改了问题。

【解决方案1】：

我从Here找到了我的答案

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

【讨论】：

【解决方案2】：

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

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

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

【讨论】：