Foro - Perl en Español

Hola de nuevo.



Bueno, aquí muestro un diagrama de actividades, de lo que tengo intención de hacer. Tengo ya codificado desde IR DB hasta el final, sólo, que en realizar consulta tendré que ampliarlo a una multitabla, pero todo a su tiempo.

El problema que me veo ahora, es que el módulo (.pm) que uso para conectar con la BBDD requiere de una DB para conectarse. ¿Es posible enviar un parámetro por 'use' o algo similar? La intención es que el usuario (mi compi) pueda crearse una bbdd al completo con sus tablas, subtablas y demás para realizar todas las consultas.

Gracias.

Creo que no, que no se puede cargar un módulo indicando un parámetro. La lista de argumentos que admite use es para indicar qué símbolos del módulo queremos importar a nuestro espacio de nombres.

Lo que sí se puede hacer es cargar el módulo con use y luego llamar a uno de sus métodos para inicializarlo con ese argumento:

Vamos, que lo que se haría sería modificar ese argumento con lo que tú desees, ¿no? En mi caso el nombre de la database.

Sería como esto, ¿no? (ejemplo copiado de la red):

explorer escribiste:Creo que no, que no se puede cargar un módulo indicando un parámetro.

¡Si, si se puede!

El código...

es equivalente a...

La mayoría de los módulos, lo que hacen es importar el método import del módulo Exporter que al ejecutarse enlaza en el package que ha hecho el use las subrutinas con los nombres que se han pasado como argumentos.

Pero en realidad nada nos impide declarar nuestro propio método import que haga lo que nosotros queramos. Por ejemplo:


De todas formas, esto de pasar parámetros en el use, no suele ser una buena idea, porque nos obliga a tener los parámetros disponibles en tiempo de compilación.

Por ejemplo:

No va a hacer lo que esperaríamos a primera vista porque si consideramos cómo se expande el use y como el BEGIN se ejecuta nada más ser compilado, el resultado sería equivalente a...


Así que aunque sí se pueda, en general ¡es mejor utilizar la solución que tu propones!

Vale, no soy capaz de sacarlo, seguramente he puesto mal el código.

Fichero que necesita la conexión:



Sólo pongo las dos sentencias necesarias.

Ahora el fichero de la conexión, que vamos es el típico sólo que le he añadido el new. :/



La cosa es que no peta, por lo tanto el problema es en la secuencia SQL, así que presupongo que es que no coge bien la db en la qué buscar...

Lo que no acabo de ver es, si llamo a la función desde fuera ¿No hace falta llamarla aquí dentro? No lo acabo de ver claro.

Creo que la línea que está mal es la de

$db_name = @_;

ya que ahí estás evaluando un array en contexto escalar (hay una variable escalar en el lado izquierdo), por lo que, realmente, estás guardando el número de elementos de @_, y no su contenido.

Cámbiala por

($db_name) = @_;

o

$db_name = shift @_;

o

$db_name = shift;

(las tres hacen lo mismo).

Esto lo habrías visto antes si hubieras impreso el valor de las variables. Cuando un programa no funciona, es vital saber qué es lo que contienen las variables. Y una forma de hacerlo es con print(), printf(), say() o Data::Dump::Dumper().

Vale, con razón a veces me hacía cosas raras con el @_.

Igualmente, en un .pm ¿se pueden imprimir las cosas?

No sé, pensaba que al ser un módulo para conectar, pues... tal vez no saldría nada por pantalla. No sé. Quieras o no, sigo bastante perdida y aún no sé cómo he llegado tan lejos.

zangre escribiste:Igualmente, en un .pm ¿se pueden imprimir las cosas?

Pues... cuestión de probar, ¿no?

Mientras la salida estándar no esté cerrada, se puede imprimir desde cualquier sitio de tu programa. Un módulo es un "añadido" al programa, es decir, las nuevas definiciones, métodos, funciones y variables son incorporadas al espacio de nombres de tu programa, como si los hubieras escrito tu mismo en tu programa.

La verdad es que ya lo probé y no hubo manera de que me imprimiera nada.

Soy un desastre.

Otra cosita, las opciones que me pusiste no me sirven.

También probé en lugar de un new(), directamente en el conect que cogiera los datos y determinara cómo se había de conectar:




Y evidentemente, como todo código que hago yo, no funciona.

Iré probando alternativas. Todo será cuestión de encontrar la solución correcta.

El error que me sale:


Lo curioso es que me diga que la database es ConectarDBNuevo, cuando ese es el nombre del package. Seguro que envía mal las variables...

Tienes toda la razón, se nos ha colado algo importante del funcionamiento de Perl, cuando es orientado a objetos.

Cuando haces

$dbh = ConectarDBNuevo->connect($Input{'database'});

lo que hace Perl es meter en la pila de argumentos a la llamada connect() dos cosas:
* El $Input{'database'}, que es nuestro argumento, claro
* Una referencia al objeto que invoca el método connect(). En este caso, ConectarDBNuevo.

Así que entonces, lo que hay que hacer dentro de connect():

Así, estamos leyendo los dos argumentos: primero, una referencia al propio objeto ConectarDBNuevo, y el segundo, nuestra base de datos.

Perdón por el lío.

Más información en perldoc perlmod.