Foro - Perl en Español

Tengo un programa con operaciones "Operaciones.pl", que instancia nuevos objetos o clases Operaciones::Division, Operaciones::Suma, etc... si el resultado de la operación se llevó con éxito se retorna el resultado de tal operación. Ejemplo: 6/3 = 2 (se retorna el 2), pero para el caso de que la operación haya fallado: 6/0 = No existe, se retorna un objeto que indica qué tipo de error es, de la forma Operaciones::Error(...).

Para el caso del retorno del objeto "Operaciones::Error(...)", Perl lo leía muy bien, y podía seguir trabajando correctamente. La comparación la hago con expresiones regulares:



Hace unos días, esto dejó de funcionar, y ya no entraba jamás al if.

¿De qué forma puedo solucionar este tema?

Muchas gracias

Yo lo veo difícil, sin ver algo de código...

Te diría que pusieras print() o say() en cada paso, para ver qué es lo que contienen las variables. Vamos, hacer una traza de las variables importantes.

Así, al menos, saber por qué falla.

Hola, Explorer.

El código lo tengo en otro equipo, por lo que aún no te puedo subir el fragmento de éste.

He hecho los print() cnrrespondientes, y la variable tiene el nombre del objeto (ej: Objeto::Figura(...)) como cuando imprimes un hash.

El problema era que sí funcionaba, y no sé qué pudo pasar. En realidad, no volví a tocar el módulo, hasta ahora.

Leí otros threads y se indicaban unos módulos de CPAN para saber si la variable era int, double, etc... ¿Algo similar que sirva para saber si es una clase objeto?

Thanks

Si, con la función ref() puedes saber el tipo o clase de la variable. Ejemplo:

El problema se solucionó, y al final, de la forma que lo había hecho en un principio estaba bien... este error venía de otra parte, en la clase Error...

Gracias de todas formas.

El debug fue mi salvación