Ver Tema

fjmn2001 · 2009-07-20 17:00 @750

Hola, amigos de Perl en Español, les escribo en esta oportunidad porque tengo problemas para conectarme con la bases de datos...

He logrado conectarme con la base de datos usando DBI, pero mi tutor académico quiere que utilice CGI::Application::Plugin::DBH y, bueno, me metí en CPAN pero los códigos que aparecen allí no me sirven pues, ¿podrían ayudarme a realizar el script?

Estos son los datos:

Syntax: [ Download ] [ Hide ]

dbi:pg;
host=192.168.20.254;
dbname=sga;
usuario=adm_sga;
password=123;

Ya probé con este script pero no me sirve, dice que el método dbh_config está indefinido...

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use CGI::Application::Plugin::DBH(qw/dbh_config dbh/);

my $data_source = "DBI:Pg:host=192.168.20.254;dbname=sga";

my $usuario     = "adm_sga";

my $password    = "123";

$self->dbh_config($data_source, $usuario, $password);

Esperará su pronta respuesta. De antemano muchas gracias...

kidd · 2009-07-20 17:21 @764

La idea es que lo utilices de la siguiente manera:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

package MiCGI;
 
use base 'CGI::Application';
 
use strict;
use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);
 
sub cgiapp_init {
 
    my $self = shift;
 
    #Inicializar Database
    $self->dbh_config("DBI:Pg:host=192.168.20.254;dbname=sga", "adm_sga", "123");
 
}
 
sub teardown {
 
    my $self = shift;
 
    #Desconectarse del database
    $self->dbh->disconnect();
 
} 
 
sub setup{
 
    my $self = shift;
 
    $self->start_mode('inicio');
    $self->mode_param('modo');
 
    $self->run_modes(
          'inicio' => 'inicio',
    );
 
}
 
sub inicio{
 
    my $self = shift;
 
    #Tomamos nuestro objeto DBI
    my $dbh = $self->dbh();
 
    #... cualquier cosas que quieras hacer con tu database
    return "Conectado...";
 
}
 
1;
__END__

Y ya finalmente tu .cgi:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use CGI::Carp qw(fatalsToBrowser);
 
use MiCGI;
 
my $webapp = MiCGI->new();
   $webapp->run();
 
exit(1);

Para mayor información acerca de como usar el módulo CGI::Application lee el siguiente tutorial:
http://perlenespanol.com/tutoriales/cgi ... con_c.html

fjmn2001 · 2009-07-20 21:25 @934

Muchas gracias, esto me ha servido de mucha ayuda...

fjmn2001 · 2009-07-20 23:43 @029

Una duda hermano, ¿es posible realizar la conexión fuera de las sub funciones? Con DBI, lo hacía pero con esto no sé cómo hacerlo pues... más o menos algo así.

package....

use...
use...

my...
my...

y aquí ¿realizar la conexión a la base de datos con dbh? Ya que me interesa que la conexión se haga en ese lugar, no me sirve dentro de ninguna sub función...

sub ....

kidd · 2009-07-21 07:48 @367

Si estás realizando tu aplicación con CGI::Application entonces no tienes razón por cual hacer tu conexión de otra manera, recuerda que la subrutina cgiapp_init se ejecuta siempre antes de tus subrutinas principales, la idea es que ahí pongas todo lo que será compartido por tus conexiones, la idea es la reusabilidad.

Si ves creas tu conexión y registras el objeto con tu aplicación base, así que tienes todas tus subrutinas accesos al objeto DBI sin mayor problema, lo cual es la mejor manera, pues en aplicaciones grandes, se deben de evitar las variables globales lo más posible.

Ahora, el módulo CGI::Application::Plugin::DBH, está creado con la intención de usarse como plugin de CGI::Application, así que no veo porque se te pediría que lo uses en otros casos, para ello simplemente usas directamente el módulo DBI, por ejemplo:
http://perlenespanol.com/tutoriales/bas ... abase.html

Saludos

fjmn2001 · 2009-07-21 14:34 @649

Fue lo que pensé, muchas gracias por la información...

Publicidad

Socializa