为什么我不能打开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“的建议，这将只返回相对路径，而不是完整的路径。