Perl을 사용하여 디렉토리의 모든 파일을 나열하려면 어떻게합니까?

Question

Perl에는 디렉토리의 모든 파일과 디렉토리를 나열하는 함수가 있습니까? Java가 이것을 수행하기 위해 File.list()을 가지고 있다는 것을 기억합니까? Perl에 비슷한 메소드가 있습니까?

Answer 1

당신은 주어진 디렉토리의 내용을 얻고 싶은 경우에, 단지 그것 (즉 하위 디렉토리), 가장 좋은 방법은 사용하는 것입니다했던 opendir/readdir은/closedir :

는

opendir my $dir, "/some/path" or die "Cannot open directory: $!"; 
my @files = readdir $dir; 
closedir $dir; 

은 또한 사용할 수 있습니다

my @files = glob($dir . '/*'); 

내 견해로는 글로브가 꽤 복잡하지 않기 때문에 (주로 결과를 자동으로 필터링 할 수 있음) 매우 복잡한 작업이므로 디렉터리의 모든 요소를 ​​얻는 것이 너무 간단한 작업으로 보입니다. 당신이 디렉토리 및 하위 디렉토리의 모든 컨텐츠를 취득해야하는 경우 반면에

는 기본적으로 하나 개의 표준 솔루션이 :

use File::Find; 

my @content; 
find(\&wanted, '/some/path'); 
do_something_with(@content); 

exit; 

sub wanted { 
    push @content, $File::Find::name; 
    return; 
} 

Answer 2

이 작업을 수행해야합니다.

my $dir = "bla/bla/upload"; 
opendir DIR,$dir; 
my @dir = readdir(DIR); 
close DIR; 
foreach(@dir){ 
    if (-f $dir . "/" . $_){ 
     print $_," : file\n"; 
    }elsif(-d $dir . "/" . $_){ 
     print $_," : folder\n"; 
    }else{ 
     print $_," : other\n"; 
    } 
} 

Answer 3

readdir() 않습니다.

확인 http://perldoc.perl.org/functions/readdir.html

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!"; 
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR); 
closedir DIR; 

Answer 4

또는 File::Find

use File::Find; 
finddepth(\&wanted, '/some/path/to/dir'); 
sub wanted { print }; 

존재하는 경우 그것은 하위 디렉토리를 통해 이동합니다.

Answer 5

이 모든 (하위 디렉토리 포함)가 나열됩니다 디렉토리에서 당신 순서대로, 그리고 특성과 함께 지정하십시오. 나는 이것을하기 위해 무언가를 찾고 며칠을 보냈고, 나는 전체 토론에서 그리고 나 자신의 일부를 가져다가 함께 정리했다. 즐겨!!

#!/usr/bin/perl -- 
print qq~Content-type: text/html\n\n~; 
print qq~<font face="arial" size="2">~; 

use File::Find; 

# find(\&wanted_tom, '/home/thomas/public_html'); # if you want just one website, uncomment this, and comment out the next line 
find(\&wanted_tom, '/home'); 
exit; 

sub wanted_tom { 
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat ($_); 
$mode = (stat($_))[2]; 
$mode = substr(sprintf("%03lo", $mode), -3); 

if (-d $File::Find::name) { 
print "<br><b>--DIR $File::Find::name --ATTR:$mode</b><br>"; 
} else { 
print "$File::Find::name --ATTR:$mode<br>"; 
} 
    return; 
} 

Answer 6

당신이 나를 좋아하는 사람이라면 File::Slurp 모듈을 사용하는 것이 좋습니다. read_dir 기능의 의지는, 배열에 디렉토리 내용을 읽어 점을 제거하고, 필요한 접두사 파일이 절대 경로

에 대한 디렉토리와 함께 반환하는 경우

my @paths = read_dir('/path/to/dir', prefix => 1) ;