Perl腳本無法識別所有使用-d標誌的目錄

Question

我在通過我的文件系統遍歷時遇到問題，使我的Perl腳本識別了一些子目錄。

請注意，這是一個家庭作業的一部分，我無法用任何一種模塊。我試圖自己解決這個問題很長一段時間，現在我處於一個障礙之中。

我試圖遍歷文件結構，捕獲所有的文件，目錄和子目錄的名稱爲各自對應的數組，並打印出來，如下所示格式：

Directory: ./ 
Files: file1.text file2.pl file3.text 
Directories: subdir1 subdir2 subdir3 

Directory: subdir1 
Files: file3.text file4.pl 
Directories: subdir42 

.. 。等等。

我試圖使用遞歸作爲解決這一點，但我的老師表示，遞歸是不是來處理這個問題的適當方式。

我已成功地打印，以適當的格式，當前的工作目錄，以及當前工作目錄的子目錄。

出於某種原因，當我改變當前的代碼塊

if (-d $entry){ 
     next if $entry =~/^\./; 
     push(@subdirs,"$entry"); 
     push(@dirs,"$currdir/$entry"); 
     } 

     elsif(-f $entry) { 
     push(@files,"$entry"); 
     } 

它會省略一些子目錄。

請參閱下面的整個腳本。

#!/usr/bin/perl 
use strict; 
use warnings; 


sub traverse { 

my @dirs = ('.'); 
my @subdirs; 
my @files; 
    while(my $currdir = shift @dirs){ 

    opendir(my $dirhandle, $currdir) or die $!; 

     while(my $entry = readdir $dirhandle){ 

     if (-d -r $entry){ 
     next if $entry =~/^\./; 
     push(@subdirs,"$entry"); 
     push(@dirs,"$entry"); 
     } 

     else { 
     push(@files,"$entry"); 
     } 

    } 
     print "Directory: $currdir\n"; 
     print "Directories: "; 
     print "@subdirs"; 
     print"\n"; 


     print "Files: "; 
     foreach my $curfile (@files) { 
      next if $curfile eq '.' or $curfile eq '..'; 

      if ($curfile =~ /(\S*\.delete)/){ 
        unlink "$currdir/$curfile"; 
      } 

      $curfile =~ s/txt$/text/; 
      print "$curfile "; 
     } 

    print "\n"; 
    close $dirhandle; 
    undef @files; 
    undef @subdirs; 

} 
return; 
} 
traverse(); 

電流輸出：

Directory: . 
Directories: test dir_3 test2 
Files: recursion.text count_files.pl testing.text thelastone.pl testing.pl prog5_test.pl program51.pl program5.pl recursion.pl recurse.text prog52.pl 
dirs.pl 

Directory: test 
Directories: 
Files: testfile1.text prog5_test.pl stilltesting program5.pl testfile2.text dirs.pl 

Directory: dir_3 
Directories: 
Files: 

Directory: test2 
Directories: 
Files: file2.text moretesting file3.text 

stilltesting和moretesting應認定爲目錄。

Answer 1

if (-d $entry) 

應該

if (-d "$currdir/$entry") 

$entry只是一個目錄的名稱。 -d需要一個實際路徑。