디렉토리의 모든 파일을 탐색하는 방법. 하위 디렉토리가있는 경우 하위 디렉토리의 파일을 탐색하려고합니다.

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 파일의 타임 스탬프를 기록합니다. 하위 디렉토리가있는 경우 해당 하위 디렉토리에도 파일을 포함하고 싶습니다.

누군가 위의 코드를 수정하여 서브 디렉토리를 포함하도록 도와 줄 수 있습니까?

난 창에서 아래의 코드를 사용하고있는 경우에도 내 폴더 외부 폴더에있는 모든 파일의 점점 타임 스탬프를 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은 경로를 포함하는 완전한 파일 이름으로 설정합니다.