펄 스크립트를 사용하여 디렉토리 속성을 얻는 방법은 무엇입니까?

Question

나는 그 안에 파일과 서브 디렉토리의 수와 같은 디렉토리의 세부 사항을 얻고 싶다.

예! 명령을 실행하기 위해 역 추적을 사용하는 리눅스 컴퓨터에서 쉽게 할 수 있습니다. 그러나 스크립트 플랫폼을 독립적으로 만들 수있는 방법이 있습니다.

감사 : 당신은 당신이 Path::Class 사용을 고려할 수있는 권한

Answer 1

. 이것은 모두 당신에게 쉬운 인터페이스를 제공하고 ("플랫폼"의 "\"과 "/"의 차이를 포함하여) 모든 크로스 플랫폼을 처리합니다.

use Path::Class qw(file dir); 

    my $dir = dir("/etc"); 

    my $dir_count = 0; 
    my $file_count = 0; 

    while (my $file = $dir->next) { 
     # $file is a Path::Class::File or Path::Class::Dir object 

     if ($file->is_dir) { 
     $dir_count++; 
     } else { 
     $file_count++; 
     } 

     my $mode = $file->stat->mode; 
     $mode = sprintf '%o', $mode; # convert to octal "0755" form 
     print "Found $file, with mode $mode\n"; 
    } 
    print "Found $dir_count dirs and $file_count files\n"; 

Answer 2

을 얻기 위해 디렉토리의 내용을 얻기 위해 디렉토리 핸들 (opendir 및 readdir)를 사용하고 File::stat 수