如何遍歷目錄中的所有文件;如果它有子目錄，我想遍歷子目錄中的文件

Question

opendir(DIR,"$pwd") or die "Cannot open $pwd\n"; 
    my @files = readdir(DIR); 
    closedir(DIR); 
    foreach my $file (@files) { 
     next if ($file !~ /\.txt$/i); 
     my $mtime = (stat($file))[9]; 
     print $mtime; 
     print "\n"; 
    } 

基本上我想記下目錄中所有txt文件的時間戳。如果有一個子目錄我想在該子目錄中包含文件。

有人可以幫我修改上面的代碼，以便它也包括子目錄。

如果我在Windows中使用下面的代碼的IAM這是在文件夾甚至我的文件夾以外的所有文件的獲取時間戳

my @dirs = ("C:\\Users\\peter\\Desktop\\folder"); 
    my %seen; 
    while (my $pwd = shift @dirs) { 
      opendir(DIR,"$pwd") or die "Cannot open $pwd\n"; 
      my @files = readdir(DIR); 
      closedir(DIR); 
      #print @files; 
      foreach my $file (@files) { 
        if (-d $file and !$seen{$file}) { 
          $seen{$file} = 1; 
          push @dirs, "$pwd/$file"; 
        } 
        next if ($file !~ /\.txt$/i); 
        my $mtime = (stat("$pwd\$file"))[9]; 
        print "$pwd $file $mtime"; 
        print "\n"; 
      } 
    } 

Answer 1

use warnings; 
use strict; 

my @dirs = ("."); 
my %seen; 
while (my $pwd = shift @dirs) { 
     opendir(DIR,"$pwd") or die "Cannot open $pwd\n"; 
     my @files = readdir(DIR); 
     closedir(DIR); 
     foreach my $file (@files) { 
       if (-d $file and ($file !~ /^\.\.?$/) and !$seen{$file}) { 
         $seen{$file} = 1; 
         push @dirs, "$pwd/$file"; 
       } 
       next if ($file !~ /\.txt$/i); 
       my $mtime = (stat("$pwd/$file"))[9]; 
       print "$pwd $file $mtime"; 
       print "\n"; 
     } 
} 

Answer 2

您可以使用遞歸：定義，通過文件去，並呼籲本身的功能目錄。然後調用頂層目錄中的函數。請參閱File::Find。

Answer 3

使用File::Find::Rule

Answer 4

File::Find是最適合這個。它是一個核心模塊，因此不需要安裝。此代碼的你彷彿心裏有

use strict; 
use warnings; 

use File::Find; 

find(sub { 
    if (-f and /\.txt$/) { 
    my $mtime = (stat _)[9]; 
    print "$mtime\n"; 
    } 
}, '.'); 

其中'.'是目錄樹的根要掃描的同等學歷;如果您願意，您可以在這裏使用$pwd。在該子例程中，Perl已經對發現該文件的目錄執行chdir，將$_設置爲文件名，並將$File::Find::name設置爲包含路徑的完全限定文件名。