[perl] Leyendo un directorio

[Gunnar Wolf]

> (...)
> 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) ?

Ummm... Lo que te voy a sugerir es muy poco ortodoxo, usalo con precaucion
y no lo uses en programas a los que cualquier hijo de vecina tenga acceso.

@archivos = `ls`
foreach $archivo (@archivos) {
	print "Trabajando con $archivo\n";
}

Salu!

-------------------------------------------------------------------
           Gunnar Wolf    gwolf@campus.iztacala.unam.mx
     Universidad Nacional Autónoma de México, Campus Iztacala
   Jefatura de Sección de Desarrollo y Admon. de Sistemas en Red
       Departamento de Seguridad en Computo - DGSCA - UNAM
-------------------------------------------------------------------
Celebremos Juntos el D'ia Internacional de la Seguridad en C'omputo
             30 de Noviembre --- Superando Retos.
                    www.disc2000.unam.mx
-------------------------------------------------------------------

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