Foro - Perl en Español

Hola.

Ando teniendo una duda básica, porque quiero saber cómo listar todos los directorios en la ruta en la que se encuentra el script Perl ejecutado.

Ejemplo: si ejecuto el script en C:/, quisiera saber cómo saber todos los directorios en esa unidad y poder comprobar que son directorios.

¿Alguien me podría ayudar?

Para saber en qué lugar del sistema de archivos te encuentras, usa el módulo Cwd (parte de la distribución de Perl, no tienes que instalar nada). Este módulo exporta varias funciones para saber desde dónde se llama el script.

Para leer un directorio primero tienes que 'abrirlo' con opendir(). Una vez abierto, puedes ver lo que hay dentro con readdir().

En este paso puedes usar los test de Perl, tipo

para procesar sólo los directorios que encuentres. Si necesitas encontrar directorios de manera recursiva, entonces tendrás que usar File::Find.

Los distintos tipos de file tests los puedes ver aquí: http://perldoc.perl.org/functions/-X.html

Y una vez procesado, lo cierras con closedir().


Si pones código que hayas escrito y no funciona, seguro que se puede mirar por qué.

Aquí tienes un pequeño script que hace eso que quieres:

Gracias, Natxo. Tengo otra duda teniendo en cuenta tu script. ¿Cómo hago cuando una vez detectado un directorio, tu script liste todos los archivos y directorios como hizo con el primero, hasta que termine listando todo los directorios y archivos que había en la misma ruta?