[perl] Leyendo un directorio

[Adrian Galindo]

Hola perleros.

Sigo con mi problema de las animaciones con los históricos de la cámara.
El problema del despliegue ya está solucionado, ahora estoy atorado en el
problema de escoger las imagenes en base a una fecha.

En el directorio en dónde la cámara sube las imágenes, se llegan a juntar
varios miles de ellas. Lo que hago es escogerlas y meterlas a un arreglo
en base a la fecha de acceso: $stat[8]

La bronca es que si uso opendir, readdir, closedir, se tarda aaaaññoooosss
en leer todo el directorio y meterlo al arreglo (asi funcionad readdir).

Intenté hacer un 
opendir (DIR, "/ruta");
while (<DIR>) { }
closedir (DIR);

pero luego de muchos intentos me dí cuenta de que esto del (<>) solo
funciona con archivos :\ no con directorios...

¿Tiene alguien idea de como leer un archivo con miles de archivos y no se tarde
minutos, sino segundos? :)
¿O de plano me tengo que esperar a que se lea todo a la de 'a wilson' (o
cambiar de estategía, obviamente) ?

Gracias por su ayuda.

Saludos.

Adrián Galindo Hernández

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl