ディレクトリ内のすべてのファイルをPerlでリストするにはどうしたらいいですか？

Question

Perlにディレクトリ内のすべてのファイルとディレクトリをリストする関数はありますか？ これを行うにはJavaにFile.list()があることを覚えていますか？ Perlに匹敵するメソッドがありますか？

Answer 1

あなたが与えられたディレクトリの内容を取得したい場合は、とだけ（つまりなしサブディレクトリ）、最良の方法は、/のreaddir/closedirのをopendir関数を使用することです：

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

ます。また、使用することができます。

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

私の意見では、グロブはかなり複雑なので（結果を自動的にフィルタリングすることができます）、それを使ってディレクトリのすべての要素を取得するのは簡単すぎるようです。

あなたはディレクトリとサブディレクトリのすべてのコンテンツを取得する必要がある一方、1つの標準液は基本的にあります：

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) ;