Programación Web y Scripting > Perl

 Re: buscar el nombre de un archivo

(1/1)

k-limero:
¿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.

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

Navegación

[0] Índice de Mensajes