¿Cómo puedo recorrer archivos en un directorio en Perl?

Question

Duplicar posible:
How can I list all of the files in a directory with Perl?

quiero colocar a través de unos pocos cientos de archivos que están contenidos en el mismo directorio. ¿Cómo haría esto en Perl?

Answer 1

Puede usar readdir o glob.

O bien, puede utilizar un módulo como Path::Class:

Ordinariamente children() no incluirá las entradas de auto y de los padres. y ... (o sus equivalentes en sistemas que no son de Unix), porque eso es como si yo fuera mi propio negocio. Si usted quiere todas las entradas de directorio que incluyen estos seres especiales, pasar un valor válido para el parámetro all:

@c = $dir->children(); # Just the children 
@c = $dir->children(all => 1); # All entries 

Además, hay un parámetro no_hidden que excluya todas las entradas normalmente "ocultos" - en Unix esto significa excluir todas las entradas que comienzan con un punto (.):

@c = $dir->children(no_hidden => 1); # Just normally-visible entries 

O Path::Tiny:

@paths = path("/tmp")->children; 
@paths = path("/tmp")->children(qr/\.txt$/); 

Devuelve una lista de objetos Path::Tiny para todos los archivos y directorios dentro de un directorio. Excluye "." y ".." automáticamente.

Si se proporciona un argumento qr// opcional, solo devuelve objetos para nombres secundarios que coinciden con la expresión regular dada. Sólo el nombre base se utiliza para la coincidencia:

@paths = path("/tmp")->children(qr/^foo/); 
# matches children like the glob foo* 

Obtener la lista de entradas de directorio en una desechos matriz algo de memoria (en lugar de obtener un nombre de archivo a la vez), pero con sólo unos pocos cientos de archivos , esto es poco probable que sea un problema.

Path::Class es portátil para sistemas operativos que no sean * nix y Windows. Por otro lado, AFAIK, sus instancias usan más memoria que las instancias Path::Tiny.

Si la memoria es un problema, es mejor utilizar readdir en un bucle while.

Answer 2

#!/usr/bin/perl -w 

@files = <*>; 
foreach $file (@files) { 
    print $file . "\n"; 
} 

Dónde

@files = <*>; 

puede haber

@files = </var/www/htdocs/*>; 
@files = </var/www/htdocs/*.html>; 

etc.

Answer 3

disfrutar.

opendir(DH, "directory"); 
my @files = readdir(DH); 
closedir(DH); 

foreach my $file (@files) 
{ 
    # skip . and .. 
    next if($file =~ /^\.$/); 
    next if($file =~ /^\.\.$/); 

    # $file is the file used on this iteration of the loop 
}