我通常使用类似的东西
my $dir="/path/to/dir";
opendir(DIR, $dir) or die "can't open $dir: $!";
my @files = readdir DIR;
closedir DIR;
或者有时我使用glob，但无论如何，我总是需要添加一两行来过滤掉. 和..，这很烦人。
您通常如何处理这项常见任务？
【问题讨论】：
my @files = grep {!/^\./} readdir DIR;
这也将排除所有点文件，但这通常是您想要的。
【讨论】：
我经常使用File::Slurp。好处包括： (1) 如果目录不存在则自动死亡。 (2) 默认排除.和..。它的行为类似于readdir，因为它不返回完整路径。
use File::Slurp qw(read_dir);
my $dir = '/path/to/dir';
my @contents = read_dir($dir);
另一个有用的模块是File::Util，它在读取目录时提供了许多选项。例如：
use File::Util;
my $dir = '/path/to/dir';
my $fu = File::Util->new;
my @contents = $fu->list_dir( $dir, '--with-paths', '--no-fsdots' );
【讨论】：
.和..。
File::Util，如编辑后的答案所示。
我一般会使用glob方法：
for my $file (glob "$dir/*") {
#do stuff with $file
}
除非目录中有很多文件，否则这很好用。在这些情况下，您必须在while 循环中切换回readdir（将readdir 放在列表上下文中与glob 一样糟糕）：
open my $dh, $dir
or die "could not open $dir: $!";
while (my $file = readdir $dh) {
next if $file =~ /^[.]/;
#do stuff with $file
}
通常，如果我正在读取目录中的一堆文件，我想以递归方式读取它们。在这些情况下，我使用File::Find：
use File::Find;
find sub {
return if /^[.]/;
#do stuff with $_ or $File::Find::name
}, $dir;
【讨论】：
[.]的用法很好奇——为什么你更喜欢\.？
\x{2e}），但\. 意味着它只是一个句号。由于大多数字符在字符类中没有特殊含义，因此它是一种很好的转义机制。
如果某些点文件很重要，
my @files = grep !/^\.\.?$/, readdir DIR;
将仅排除 . 和 ..
【讨论】：
当我只想要文件（而不是目录）时，我使用 grep 和 -f 测试：
my @files = grep { -f } readdir $dir;
【讨论】：
File::Spec->catfile($dirname, $_) 构造一个绝对路径名。
感谢 Chris 和 Ether 的建议。我使用以下内容将所有文件（排除目录）的列表从引用当前目录以外的目录的目录句柄读取到数组中。在 grep 语句中不使用绝对路径时，数组总是缺少一个文件
use File::Slurp;
print "\nWhich folder do you want to replace text? " ;
chomp (my $input = <>);
if ($input eq "") {
print "\nNo folder entered exiting program!!!\n";
exit 0;
}
opendir(my $dh, $input) or die "\nUnable to access directory $input!!!\n";
my @dir = grep { -f "$input\\$_" } readdir $dh;
【讨论】：