Foro - Perl en Español

Querría saber el código óptimo para realizar una encuesta en Perl. La tenemos realizada, pero nos parecen demasiadas líneas y queríamos ver la manera más óptima. La encuesta consiste en una batería de preguntas a las que se responderá sí y no mediante [Y] y [N], y dependiendo de si la respuesta sea positiva o negativa se pasará a una siguiente pregunta que dependerá de la primera. Así, si a una pregunta que se interesa por el conocimiento del usuario sobre algo se responde negativamente, el programa mostrará una breve explicación y continuará con una pregunta relacionada para conocer más acerca de lo que la persona sabe.

Realmente lo único que necesitaríamos sería la estructura básica y óptima para las distintas condiciones encadenadas, que en el organigrama toman forma de ramificaciones, como un árbol genealógico.

Partiendo de una pregunta, aparecen otras 2, de esas otras 4 para seguir con 8 y que finalmente sean 16.

Gracias de antemano.

Bienvenida a los foros de Perl en Español, perlaperlita.

Yo creo que usando Term::Menu::Hierarchical lo tenéis resuelto. Es cuestión de que hagáis una prueba.

Naturalmente, es un módulo para usar en terminal. No has dicho nada de dónde se tienes que ver esa encuesta, pero he supuesto que es para una terminal.

La estructura jerárquica se hace en una construcción de hash de hashes, se llama a menu(), y el programa va sacando todos los menús según lo que vaya eligiendo el usuario. Y al final, devuelve la elección última que haya escogido el usuario.

Lo malo es que dices que tiene que salir una explicación en mitad de algunos menús.

Podéis mirar el funcionamiento del módulo (su código fuente) para ver cómo trata la estructura jerárquica, copiarlo en vuestro programa, y personalizarlo con los textos que deben salir en ciertos momentos (que podrían estar almacenados en otro hash y saldrían si la clave coincide con alguna de las respuestas o preguntas del usuario o el estado o nivel en que se encuentra).

Realmente ha habido un error, porque no quería exponer este tema en el apartado del Mundo Perl < Intermedio, si no en Bioinformática, ya que es más relacionado con ese ámbito y además estaría dentro de algo más Básico, y tampoco he explicado demasiadas cosas así que pido perdón y me dispongo a ello:

Es una encuesta que hemos realizado con diferentes "if" que iban llevando a otros y así sucesivamente. Dentro de dichas condiciones, y cuando igualábamos la condición a las variables que definen respuesta negativa o positiva, poníamos el "print" que correspondiese y continuábamos con el programa. El problema está en que son demasiadas líneas de código, y además es ese conjunto de condiciones para cuatro temas distintos (es decir, x4). El programa va almacenando las respuestas en un array para terminar pasándolos a un archivo externo en .txt. A partir de ese archivo, una vez creado con las respuestas de todas las personas que someteríamos a la encuesta, comenzaríamos otro en el que contabilizaríamos las respuestas positivas y negativas y mostraríamos diferentes datos estadísticos y demás contenidos que no vienen al cuento.

Está destinado a ser mostrado en proyector a partir de un ordenador personal, el cual tiene instalado Perl y sería ejecutado a través del 'cmd'.

Un saludo y mil gracias de nuevo.

Se puede hacer una parte de un programa que fuera recorriendo la estructura jerárquica de preguntas, hasta llegar a las últimas (que supongo que es lo único que quieres guardar), parecido a como lo hace el módulo enlazada antes. El tema son las excepciones a las reglas, que son los textos que quieres sacar según las respuestas negativas que el usuario elija.

Esta es una posible solución (mínima):

Un ejemplo:

En este caso, la resolución del problema se hace por medio de una llamada recursiva mientras haya preguntas que hacer, o hasta que tengamos un resultado de la encuesta. Aquí saco el resulatado en pantalla, pero lo normal es guardarlo en algún otro sitio.

Jolín, esperaba una respuesta pero no tan amplia. He estado mirando por ahí y he visto que le pone el mismo empeño (muchísimo) a cada uno de los mensajes que se publican.

Muchísimas gracias por la respuesta y probaremos en breves la opción que nos planteas.