爲什麼我不能打開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「的建議，這將只返回相對路徑，而不是完整的路徑。