如何使用perl从给定目录中读取所有文件名？

Question

朋友，我有这段代码，该代码从目录中读取文件名并打印这些名称

opendir DIR1,  "defaults" or die "cannot open dir: $!";#open the given dir
        my @default_files=readdir DIR1;
        foreach my $fls(@default_files){ 
                        chomp($fls); 
                        print "$fls\n";
           }

当我运行上面的代码时

.
..
PGR.csv
report.csv
std_headers.csv
tab_name.txt

我很困惑前两行是什么？ 提前致谢

Answer 1

一个更简单的选择可以使用glob函数：

my @default_files = glob 'defaults/*';

要么：

my @default_files = <defaults/*>;

这些函数会过滤出以开头的文件和目录条目. ，就像shell一样。

Answer 2

第一行是：

• . 链接到您当前正在访问的目录。

• ..链接到您要访问的目录（父目录）上方的目录。

编辑：

过滤掉两个命名条目的一种可能性是使用grep ：

opendir DIR1, "tmp" or die "cannot open dir: $!";
my @default_files= grep { ! /^\.\.?$/ } readdir  DIR1;

foreach my $fls (@default_files) { 
   chomp($fls); 
   print "$fls\n";
}

Answer 3

“。” 表示当前工作目录，“ ..”表示当前工作目录的父目录

Answer 4

在目录列表中， . 代表工作目录 ， ..代表父目录 。

在标量上下文中，可以通过显式检查它们来跳过这些条目：

while (defined(my $next = readdir $dir)) {
    next if $next =~ /\A[.][.]?\z/;
    # ...
}

或在列表上下文中：

my @entries = grep !/\A[.][.]?\z/, readdir $dir;

如果我已经在使用File :: read_dir ，我更喜欢只使用它提供的read_dir函数。 以下内容将自动跳过. 和..除了将目录路径添加到每个返回的条目之前：

 my @paths = read_dir('/path/to/dir', prefix => 1);