que no encontré o tal vez no miré bien. Mi duda es la siguiente:
He creado un package con el nombre de configuración, con la función conexion_bd();
éste es llamado desde otro perl; el problema es que si no le pongo al package un 1; o return 1;
mi función no se ejecuta dándome el siguiente mensaje de error:
configuracion.pm did not return a true value at variables.pl line 10.
Me doy cuenta de que sin el uno toma como que no se retorna un valor verdadero, ahora esto tal
vez se debe trabajar de alguna manera como para manejo de errores, no lo sé, y eso me gustaría saber, si está bien que le ponga un return 1; o debo hacer alguna otra cosa.
El código está aquí:
Using perl Syntax Highlighting
- package configuracion;
- use strict; #para forzar a declarar las variables antes de usarlas.
- ##código Package.
- sub conexion_bd() {
- print "hola";
- my $usuario = "nombre_de_usuario";
- return $usuario;
- }
- return 1;
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Ahora el perl que lo llama:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- require "configuracion.pm";
- my $usuario = "vacio";
- $usuario = configuracion->conexion_bd();
- print $usuario;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Muchas gracias.
Saludos.