Foro - Perl en Español

Estoy haciendo un script en Perl y tengo un problema en una de las funciones.

Este es el enunciado de la función:

mostrar_directorio [directorio]
Recorre recursivamente el árbol de directorio partiendo desde el directorio pasado como argumento.

Hasta ahí todo sin problemas pero ahora debo añadir...

Lo único que se debe de modificar es la salida. Esta estará claramente sangrada y se intentará representar lo más parecido a un árbol gráfico. Para ello se emplearán los caracteres: ‘|’, ‘\’ y ‘-‘.

Veámoslo en un ejemplo:


Esta es la función que ha sacado por ahora:


Así llevo la función hasta ahora; lo único que me falta es saber cómo poner la barra "\" que no tengo ni idea.

Espero que alguien me pueda ayudar.

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

La pista que tienes para colocar el '\' como último elemento del subdirectorio, es que es el último elemento de @subd, así que dentro del bucle puedes hacer un
y si es así, cambiamos el '|' por un '\', y ya está.

P.D. Te sobran paréntesis en las líneas 7, 12, 16, 20 y 31.

Estoy haciendo pruebas y no veo claro dónde debo meter ese if().

¿Iría entre la línea 36-37?

Yo veo dos líneas en las que haces uso del '|'.

Entonces, lo primero que haría dentro del bucle (antes de la 34), es ver si se trata o no del último elemento de @subd. Según sea o no, pondré el valor de una variable llamada, por ejemplo, $delimitador, al valor '|' o al '\'. Y luego, siguen las mismas líneas que tienes ahora, pero cambiando la aparición del '|' por la variable $delimitador.

Así, las salidas son las mismas que antes, pero el delimitador cambia cuando se trata del último elemento.

Lo primero, muchísimas gracias, que aún no te las había dado...

Me estoy acercando bastante.

Hasta aquí he llegado:


Sigo haciendo algo mal porque este es el resultado que obtengo:



¿Qué estoy haciendo mal ahora?

Lo primero, estás poniendo puntos '.' demás, en los print de las líneas 49 y 54. Quítalos.

Segundo, estás usando el mismo controlador (DIR) para todas las vueltas, y eso no me gusta nada. No afecta mucho porque haces la operación @entradas=readdir(DIR);, con la que lees todo el contenido del directorio, de golpe. Pero es mucho más seguro hacerlo así:

Tercero; algunos directorios ves que no acaban con '\'. Eso es porque en la línea 31 estás leyendo todo los archivos y directorios, incluidos los que excluyes en la línea 36. Y eso es lo que precisamente ocurre: resulta que en el subdirectorio etc/, las últimas entradas corresponden a esos directorios especiales. Al ser descartados por la línea 36, nunca se cumple la condición de la 38, por lo que no aparece el '\'.

La solución es filtrar los directorios especiales justo en el momento de leerles con readdir(): quita la 36 y la 31 la reescribes así:

Hay otro detalle... me parece... y es que en la línea 32 sumas un espacio como espacio de sangrado, pero según el ejemplo de salida, quizás deberían ser dos, excepto... ¿el primer nivel?

Ahora no



Ahora no obtengo resultado



He probado a poner tambien el $ delante de DIR en la linea 30 pero tampoco obtengo resultado

El error que sacas es, precisamente, de poner DIR, en lugar de $DIR.

Lo que pasa es que estás declarando $DIR dentro, y solo dentro, del if() de las líneas 23 a 25. No es conocido en el resto de líneas.

Coloca el my $DIR; en la línea 5, y en la línea 23, pon solamente if(!opendir($DIR, $d)){

Aquí te dejo un ejemplo con lo que debería salirme



Doy por hecho que el orden no importa...

En mi resultado me sobran unas barras "|" que no veo la forma de que desaparezca.

Y no me aparecen eso errores que detecta que los archivos no tienen los permisos activados.

Aquí el código



Y aquí mi resultado:



Son estas 3 últimas barritas de la izquierda las que me sobran.

Un compañero tuyo se adelantó aquí. En su primer mensaje aparece resuelto la forma de sacar el directorio, aunque no sigue la misma salida esperada que la que indicas tu. Y sospecho de que se puede simplificar un poco, aunque si tiene que ser exactamente la salida pedida, hay que tener en cuenta algún caso especial.

Y sobre el tema de los permisos que no aparecen en los directorios de pruebas, mira los últimos mensajes.