Comment lister tous les fichiers d'un répertoire avec Perl?

Question

Existe-t-il une fonction en Perl qui répertorie tous les fichiers et répertoires d'un répertoire? Je me souviens que Java a le File.list() pour faire ça? Existe-t-il une méthode comparable en Perl?

Answer 1

readdir () fait cela.

Consultez 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 2

Ou Fichier :: Rechercher

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

Il passera par des sous-répertoires s'ils existent.

Answer 3

cela devrait le faire.

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