Foro - Perl en Español

¡Hola amigos programadores!
Tengo la siguiente necesidad:

Deseo leer todos los archivos que contenga una carpeta para abrirlos y parsearlos y poder guardar ciertos datos que contienen. No sé cuántos archivos hay dentro de la carpeta de antemano por lo que seguramente debo usar un while().

Aquí detallo en pseudo-codigo lo que deseo realizar:

while (Leo archivos desde el directorio X)
{
Abrir archivo i;
Leer el archivo en busca de cierto patrón;
Escribir el patrón en un archivo de salida;
cerrar archivo i ;
i++;
}

i sería la cantidad de archivos dentro de mi directorio, pero i es un número que no conozco de antemano salvo que exista una función para contar cuántos archivos hay dentro de un directorio (que no la conozco).

Saludos y espero puedan ayudarme.

Gonza

Bienvenido a los foros de Perl en español, gonzalipto.

Puedes usar la terna opendir(), readdir() y closedir() para leer el contenido de un directorio.

Más información en

perldoc -f opendir
perldoc -f readdir
perldoc -f closedir

¡Gracias! Probé la función opendir() y readdir(), pero me sale un error.



Y me da el siguiente error:

Use of uninitialized value $_ in print at DirectoryReader.pl line 11.

¿Alguna idea de qué puede ser? ¿No tendría que guardar el valor de cada lectura dentro de la variable $_?

La construcción

while (readdir $dh) {

solo funcionará si estás ejecutando un Perl v5.11.2 o superior (es lo que dice la documentación de readdir()).

Para buscar un patrón dentro de los archivos puedes usar grep