如何使用 Perl 列出目录中的所有文件？

Question

我通常使用类似的东西

my $dir="/path/to/dir";
opendir(DIR, $dir) or die "can't open $dir: $!";
my @files = readdir DIR;
closedir DIR;

，有时我使用 glob ，但无论如何，我总是需要添加一两行来过滤掉 . 和 .. 这很烦人。 您通常如何完成这项常见任务？

Answer 1

my @files = grep {!/^\./} readdir DIR;

这也将排除所有点文件，但这通常就是您想要的。

Answer 2

我经常使用 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' );

Answer 3

我通常会使用 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;

Answer 4

如果某些点文件很重要，

my @files = grep !/^\.\.?$/, readdir DIR;

则仅排除 . 和 ..

Answer 5

当我只想要文件（而不是目录）时，我使用 grep 和 -f 测试：

my @files = grep { -f } readdir $dir;

Answer 6

感谢克里斯和以太的建议。我使用以下命令将所有文件（排除的目录）的列表从引用当前目录以外的目录的目录句柄读取到数组中。 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;