perl - 如何获取目录及其子目录中的文件的句柄？

Question

因此，我最近注意到在脚本中使用了 opendir，并希望对其稍作更改，以便它返回目录子文件夹中的文件以及目录本身中的文件。经过调查，我无法为 opendir 找到任何类型的递归选项，并且无法让 glob 返回标量。因此，与其再胡扯任何一个，我认为更谨慎的做法是问:获取目录及其子目录中所有文件的句柄的标准方法是什么？

Answer 1

经典方式是使用 File::Find ，它具有作为核心模块的优点，但它可能有点痛苦。如果您能够使用第三方模块，File::Util非常方便:

use File::Util;
my $fu = File::Util->new;

my $root = 'foo/bar';

my @dirs_and_files = $fu->list_dir($root, '--recurse');
my @files_only     = $fu->list_dir($root, '--recurse', '--files-only');