Autor Tema: Re: buscar el nombre de un archivo (Leído 1728 veces)

k-limero · « **en:** Sábado 8 de Junio de 2002, 20:45 »

¿Hay alguna forma de buscar archivos desde perl?

GRACIAS DE ANTEMANO.
Lo que quiero es hacer algo como open (INFILE, "*.txt"); para que abra todos los archivos con esa extensión.

Avalon

Para obtener todos los archivos .txt que hay en un directorio podrías hacerlo así:

Código: Text

opendir(DIR, ".");
@files = grep(/.txt$/,readdir(DIR));
closedir(DIR);
 

A partir de ahí los puedes abrir individualmente recorriendo la lista:

Código: Text

foreach $file (@files) {
   open(INFILE, $file);
   ...
   ...
}
 

Espero que te sirva.

Salu2,
Avalon

SoloCodigo