¿Cómo puedo enumerar todos los archivos en un directorio usando Perl?

Question

que suelen utilizar algo así como

my $dir="/path/to/dir"; 
opendir(DIR, $dir) or die "can't open $dir: $!"; 
my @files = readdir DIR; 
closedir DIR; 

o, a veces utilizo glob, pero de todos modos, siempre tengo que añadir una línea o dos para filtrar . y .. que es bastante molesto. ¿Cómo sueles llevar a cabo esta tarea común?

Answer 1

normalmente voy a utilizar el glob método:

for my $file (glob "$dir/*") { 
    #do stuff with $file 
} 

Esto funciona bien a menos que el directorio tiene muchos archivos. En esos casos hay que volver a readdir en un bucle while (poniendo readdir en el contexto de lista es tan malo como el glob):

open my $dh, $dir 
    or die "could not open $dir: $!"; 

while (my $file = readdir $dh) { 
    next if $file =~ /^[.]/; 
    #do stuff with $file 
} 

menudo, sin embargo, si estoy leyendo un montón de archivos en un directorio , Quiero leerlos de manera recursiva. En esos casos yo uso File::Find:

use File::Find; 

find sub { 
    return if /^[.]/; 
    #do stuff with $_ or $File::Find::name 
}, $dir; 

Answer 2

my @files = grep {!/^\./} readdir DIR; 

Esto excluirá todos los dotfiles así, pero eso es por lo general lo que usted quiere.

Answer 3

Si algunos de los dotfiles son importantes,

my @files = grep !/^\.\.?$/, readdir DIR; 

sólo se excluye . y ..

Answer 4

Cuando sólo quiero los archivos (en oposición a los directorios), utilizo grep con una prueba -f:

my @files = grep { -f } readdir $dir; 

Answer 5

A menudo uso File::Slurp. Los beneficios incluyen: (1) Muere automáticamente si el directorio no existe. (2) Excluye . y .. de forma predeterminada. Su comportamiento es como readdir en el sentido de que no devuelve las rutas completas.

use File::Slurp qw(read_dir); 

my $dir = '/path/to/dir'; 
my @contents = read_dir($dir); 

Otro módulo útil es File::Util, que proporciona muchas opciones al leer un directorio. Por ejemplo:

use File::Util; 
my $dir = '/path/to/dir'; 
my $fu = File::Util->new; 
my @contents = $fu->list_dir($dir, '--with-paths', '--no-fsdots'); 

Answer 6

Gracias Chris and Ether por sus recomendaciones. Usé lo siguiente para leer una lista de todos los archivos (directorios excluidos), desde un manejador de directorio que hace referencia a un directorio que no es mi directorio actual, en una matriz. La matriz siempre faltaba un archivo cuando no se utiliza la ruta absoluta en la declaración grep

use File::Slurp; 

print "\nWhich folder do you want to replace text? " ; 
chomp (my $input = <>); 
if ($input eq "") { 
print "\nNo folder entered exiting program!!!\n"; 
exit 0; 
} 

opendir(my $dh, $input) or die "\nUnable to access directory $input!!!\n"; 

my @dir = grep { -f "$input\\$_" } readdir $dh;