Programación Web y Scripting => Perl => Mensaje iniciado por: k-limero en Sábado 8 de Junio de 2002, 20:45
Título: Re: buscar el nombre de un archivo
Publicado por: k-limero en Sábado 8 de Junio de 2002, 20:45
¿Hay alguna forma de buscar archivos desde perl?:P GRACIAS DE ANTEMANO. Lo que quiero es hacer algo como open (INFILE, "*.txt"); para que abra todos los archivos con esa extensión.
Título: buscar el nombre de un archivo
Publicado por: Avalon en Miércoles 12 de Junio de 2002, 09:43
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: