perl - 如何使用 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

我通常会使用 glob方法:

for my $file (glob "$dir/*") {
    #do stuff with $file
}

除非目录中有很多文件，否则这可以正常工作。在这些情况下，您必须切换回 readdir在 while循环(将 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;