Foro - Perl en Español

Perdona, intento explicarme mejor:

Cuando ejecuto la orden "mostrar_historico", debería de mostrarme por pantalla la lista de comandos ejecutados anteriormente numerados, de la forma descrita anteriormente.

En mi programa, al ejecutar esa orden, no me aparecen los comandos enumerados, y encima me aparecen todos los comandos que he ejecutado a lo largo de todo el día, dando igual si he salido del programa una o varias veces.

Y en este caso, a parte de estar numerados, deberían de salir en pantalla sólo los comandos ejecutados, por así decirlo, en esa sesión del programa. Es decir, que cuando ejecuto el comando "salir", los datos del fichero "HISTORICO" deberían de borrarse para que la próxima vez que lo ejecutase empezara de cero.

El programa está haciendo lo que le has dicho que haga:

• los comandos se piden en cargar_prompt()
• allí, se llama a gestionar_comando()
• y lo primero que hace dentro de gestionar_comando() es... guardar el comando en el histórico, llamando a guardar_historico()

Así que el programa sí que va guardando en el fichero histórico todos los comandos escritos, y además, de forma añadida, así que el fichero de histórico nunca es borrado.

Y cuando ejecutas el mostrar_historico, se llama a la rutina comando_mostrar_histórico(), que abre el fichero, y lo vuelca a pantalla. Y lo hace tal cual, sin poner números.

Entonces, si quieres que el programa haga una cosa distinta, deberás empezar a editarlo. Por ejemplo, la línea 527
es donde sacar el fichero en pantalla. Ahí podemos poner los números:

Vaya, visto así parece hasta fácil..

Ahora ya sí me salen los comandos ejecutados numerados, pero me falta que cuando ejecute la orden "salir", se borren todos los comandos ya guardados en el fichero histórico, para que al ejecutarla después de otra secuencia de comandos no aparezcan los anteriores.

Y esto deberíamos hacerlo modificando líneas de código aquí, ¿no?

Entonces... si hay que borrar el fichero antes de salir, eso quiere decir que el fichero histórico solo existe mientras el programa se está ejecutando... y de ahí deducimos que NO es necesario tener un fichero aparte, ya que podemos guardar los comandos históricos en un simple array (con un simple push()).

¡Ale! Te he ahorrado 17 líneas de código...

¡Je,je,je! ese es el problema, que el fichero historico.txt sí tiene que existir. Lo que no sé es cómo borrar su contenido una vez ejecutada la orden "salir".

O sea... que el archivo debe estar, pero vacío... Muy bien...

Con la función truncate() puedes ponerlo a 0:

truncate $config->{"HISTORICO"}, 0;

Más información en perldoc -f truncate.

¡Perfecto! Qué de cosas estoy aprendiendo. Ya hace lo que necesitaba que hiciese. Con la función truncate() todo solucionado, al introducirla en la subrutina salir. Gracias una vez más, explorer.

Bueno, y ya para que todas las salidas de las pruebas requeridas salgan a la perfección tengo dos dudillas.

La primera es que cuando ejecuto las órdenes, por ejemplo:



la salida correcta debería de ser:



mientras que en mi script me aparece sin esos errores que debería de salir:



y la segunda y última duda, por fin, tanto para ti explorer como para mi (¡je,je!) es que ejecutando las órdenes, por ejemplo:



La salida correcta sería:



Mientras que la que me sale a mí es todo correcto, pero, al final, cuando mostramos si existe o no el "shell por defecto" me sale distinto casi siempre, en esa salida en concreto sale así:



De las más de 50 pruebas, todas me salen perfectas ya, llevo unos días mirando eso por si podía evitar preguntarlo pero no doy con el error...

Para el caso de mostrar_directorio ../home, pasa lo siguiente:
un fichero zip (que es el que has publicado con el contenido de la estructura de directorios), al ser descomprimido en un sistema Unix, no recupera las fechas, horas y permisos de los subdirectorios y archivos que tiene comprimidos. Así, los subdirectorios me los crea así:
y vemos que, efectivamente, los permisos de los subdirectorios salen bien en tu programa. No coinciden con la salida esperada, porque los permisos de los subdirectorios no son iguales a los que se hicieron en la prueba. Si quieres que salga lo mismo que aparece en la documentación, debes cambiar los permisos de esos subdirectorios:
y ya sale bien:


Para el segundo caso, el de mostrar_usuario 2001, fíjate que se está preguntando por la existe de un ejecutable que es externo a la estructura de ficheros de las pruebas. Si en tu sistema, existe '/bin/bash' entonces sí que lo muestra. Si no, muestra 'no existe'. Así que esa parte del programa también funciona.

¡Qué felicidad! Muchas gracias, explorer, serás el primero en enterarte del resultado del programa.

Estoy muy agradecido por tu ayuda, sin ella no creo que lo hubiese podido solucionar. He aprendido mucho con tus aportaciones. Siempre has solucionado mis dudas, no sólo diciéndome cómo sería la forma correcta, sino explicándomelo como un profesor.

Gracias.