Come attraversare tutti i file in una directory; se ha sottodirectory, voglio attraversare i file anche nelle sottodirectory

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"; 
    } 

In sostanza, voglio prendere nota del timestamp di tutti i file txt in una directory. Se c'è una sottodirectory, voglio includere anche i file in quella sottodirectory.

Qualcuno può aiutarmi a modificare il codice sopra in modo che includa anche sottodirectory.

se sto usando il codice qui sotto in Windows iam ottenendo timestamp di tutti i file che si trovano in cartelle anche fuori dalla mia cartella

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

È possibile utilizzare la ricorsione: definire una funzione che passa attraverso i file e si invita le directory. Quindi chiama la funzione nella directory principale.

Vedere anche File::Find.

Answer 3

uso File::Find::Rule

Answer 4

File::Find è meglio per questo. È un modulo principale quindi non ha bisogno di installazione. Questo codice fa l'equivalente di quello che sembrano avere in mente

use strict; 
use warnings; 

use File::Find; 

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

dove '.' è la radice dell'albero di directory da sottoporre a scansione; potresti usare $pwd qui se lo desideri. All'interno della subroutine, Perl ha fatto un chdir nella directory in cui ha trovato il file, $_ è impostato sul nome file e $File::Find::name è impostato sul nome file completo compreso il percorso.