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需要一个实际路径。