为什么我不能打开 Perl 的 readdir 返回的文件？

Question

好吧，我知道这是另一个新手问题，但我非常沮丧，我希望再次获得启发。在各位的指导下，我已经学会了如何使用glob函数来读取目录中每个文件的内容。现在我正在尝试使用 readdir-foreach 组合来做同样的事情，但我一直收到“无法打开文件：权限被拒绝”错误。为什么这种情况发生在与管理员相同的目录、相同的文件和相同的我。有人可以告诉我我做错了什么吗？谢谢。

以下代码使用了 glob 函数并且可以正常工作：

#! perl
my $dir = 'f:/corpus/';
my @files = glob "$dir/*";
foreach my $file (@files) {
open   my $data, '<',"$file" or die "Cannot open FILE";
while(<$data>) {
...}

以下代码失败并且错误消息显示“无法打开文件：权限被拒绝”。但为什么？

#! perl
my $dir = 'f:/corpus/';
opendir (DIR,'f:/corpus/') or die "Cannot open directory:$!";
my @files=readdir(DIR);
closedir DIR;
foreach my $file (@files) {
open   my $data, '<',"$file" or die "Cannot open FILE:$!";
while(<$data>) {
...}

Answer 1

readdir() 函数只返回文件名，而不是完整路径。所以你试图打开例如"foo.txt" 而不是“f:\corpus\foo.txt”。

Answer 2

您应该记住，readdir 返回目录名和文件名。您很可能正在尝试打开特殊目录条目之一 . 或 ..，如果您使用这些功能，您通常需要将其过滤掉：

foreach my $f (@files)
{
    # skip special directory entries
    if ($f ne '.' && $f ne '..')
    {
        # ...
        print "$f\n";
    }
}

还要注意Andy Ross'的建议，这将只返回相对路径，而不是完整路径。