Foro - Perl en Español

por **Lor** » 2012-03-01 10:46 @490

Tengo una aplicacion que utiliza sesiones con el módulo Apache::Session::Informix. Mi objetivo es minimizar el número de conexiones a la base de datos, llevarla de dos a una sola.

Estoy abriendo una conexión primeramente para acceder a los datos propios objeto de la aplicación, pero por lo que veo al usar sesiones y analizar un poco el módulo Apache::Session::Informix, veo que se abre una segunda para conectarse a la base de manejo de sesiones. Mi pregunta es :

1) - Si abro una primera conexión en la aplicación obteniendo un $dbh, ¿podría adaptar el módulo Apache::Session::Informix para que reciba este $dbh y no tenga que abrir una conexión nueva?

2)- ¿Cómo podría hacerlo?

3)- O por el contrario no abrir una conexión en la aplicación, pero utilizar la conexión abierta en el módulo Apache::Session, pero para este caso debería estar enviando esta $dbh obtenida a la aplicación para ser utilizada.

¿Es esto posible? Espero haya sabido expresarme. Muchas gracias.

sub connection {
    my $self    = shift;
    my $session = shift;
    
    return if (defined $self->{dbh});
 
    if (exists $session->{args}->{Handle}) {
        $self->{dbh} = $session->{args}->{Handle};
        $self->{commit} = $session->{args}->{Commit};
        return;
    }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es más: si te fijas en este trozo de código, verás que hay un return que hace terminar connection() en el caso de que estuviera definido $self->{dbh}, así que el propio módulo ya tiene incorporado el mecanismo necesario para no tener que hacer más de una conexión, así que no sé qué código tienes hecho para que digas que se conecta dos veces :wink:

por **Lor** » 2012-03-08 09:46 @448

¡¡Gracias!! Hace una semana que continúo trabajando en el mismo tema y persisten los errores. El caso, es que tengo que trabajar con dos bases de datos Informix diferentes: una base con tablas de datos a los que quiero acceder llamémosla 'baseXXX' y la otra la base 'Sessions' utilizada para el manejo de sesiones según el módulo Apache::Session:Informix.

He tratado de utilizar tu sugerencia pero me tira el siguiente error:
DBD::Informix::st execute failed: SQL: -255: Not in transaction. at /usr/local/share/perl/5.8.8/Apache/Session/Store/Informix.pm line 76., referer: http://www......../intranet.htm
[Thu Mar 08 11:01:08 2012] [error] [client 172.16.253.13] commit ineffective with AutoCommit enabled at /usr/local/share/perl/5.8.8/Apache/Session/Store/Informix.pm line 93., referer: http://www....../intranet.htm

Ambas bases de datos se encuentran en modo transaccional : U (unbuffered)

El código que estoy utilizando es:

Sintáxis: [ Descargar ] [ Ocultar ]

## * * * Aplicación 1
# Abro una conexión a la base sessions
my $base = 'sessions';
my $dbh = DBI->connect("dbi:Informix:$base" , '', '',
{ 'PrintError'=>1,
'RaiseError'=>1})or die "Could not connect, stopped\n";
........
# Creo una sesión usando el gestor obtenido
my %session;
eval {
tie %session, 'Apache::Session::Informix', $sid, {
Handle => $dbh ,
Commit => 1,
LongReadLen=> 8*2**10} or die "No puede crear la sesion $sid";
};
if ($@) {
print ‘ Hubo error en la creación’;
}
else {
# se creo la sesión correctamente guardo valores:
$session{id} = $id_login ;
$session{nombre} = ‘Juan Perez’; # Guardo en sesión un valor
}
## * * Luego en otra aplicación
# Verifico si existe la sesión creada, si existe extraigo los valores $session{id} y $session{nombre}
# Veo que la sesión no existe. No se almacenaron los datos de la sesión en la base Sessions.sessions

¡¡¡Muchas gracias!!!

por **explorer** » 2012-03-08 12:11 @549

Según este mensaje, el problema con DBD::Informix para que saque ese error, es que el programador tenía puesta la opción AutoCommit => 1, pero viendo el código de Apache::Session::Store::Informix, vemos que, efectivamente, lo ponen a 0, pero SOLO si es el módulo el que se encarga de hacer la conexión. Si le pasas tu el $dbh, entonces tu eres el responsable de apagar el AutoCommit.

Mira las líneas que usa el módulo para abrir la conexión a la base de datos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    $self->{dbh} = DBI->connect(
        $datasource,
        $username,
        $password,
        { RaiseError => 1, AutoCommit => 0 }
    ) || die $DBI::errstr;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Haz tu lo mismo: coloca un AutoCommit => 0 en tu código.

A propósito... divertido leer la página de manual de DBD::Informix, en las zonas que habla de AutoCommit... (just one more reason to hate AutoCommit) :lol:

por **Lor** » 2012-03-08 12:45 @573

¡¡¡ GRACIAS !!! Apenas llegue a mi trabajo lo pruebo.

He probado tantas cosas que creo que ya hice el intento con esta alternativa. ¿Podría suceder que no hiciese el commit ? Me sucedió que si bien creaba la sesión y almacenaba valores, sin problemas, luego al consultarlos no existían.

¡¡¡Muchas gracias por tu esfuerzo y tiempo!!!

por **explorer** » 2012-03-08 14:01 @626

Precisamente, el manual dice que siempre hay que indicar la opción Commit => 1 en caso de usar una Informix.

Mirando el código del módulo, verás que sí que hace el commit() de forma automática.

por **Lor** » 2012-03-09 06:38 @318

Vamos avanzando de a poco, la sesión se crea correctamente y puedo almacenar variables también sin errores.
Ahora el problema está cuando una vez ya en sesión quiero acceder a los valores almacenados en la misma.

Hago lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

my %session;
eval {
tie %session, 'Apache::Session::Informix', $sid, {
Handle => $dbh,
Commit => 1 } or die "No puede localizar la session $sid";
};
my $nombre= $session{'nombre'};
my $apellido= $session{'apellido'};
my $id_login= $session{'id_login'};
if ($@) { # Verifico si se produjo algun error
print... $@ ......";
}

Los valores recuperados están vacíos, no los puedo recuperar: $nombre, $apellido, $id_login

$@ indica:

DBD::Informix::st fetchrow_arrayref failed: SQL: -1820: Host variable type has been changed between fetches or puts. at /usr/local/share/perl/5.8.8/Apache/Session/Store/Informix.pm line 78

¡¡¡Gracias!!!

por **Lor** » 2012-03-09 09:17 @428

¡¡¡¡Listo salio!!!! ¡¡¡Creo que sí!!! El último error estaba asociado a que realizaba el mismo proceso dos veces, una en la aplicación y otra, en una función que era llamada ubicada en un paquete.

Sintáxis: [ Descargar ] [ Ocultar ]

my %session;
eval {
tie %session, 'Apache::Session::Informix', $sid, {
Handle => $dbh,
Commit => 1 } or die "No puede localizar la session $sid";
};

Ahora lo hago una sola vez y envío por referencia donde lo necesite a \%session.

explorer: ¡¡¡¡¡¡Gracias por todo!!!!!!

por **Lor** » 2012-03-12 10:51 @494

Continúo con problemas. No se graban los valores almacenados en la sesión.
Error:DBD::Informix::st fetchrow_arrayref failed: SQL: -1820: Host variable type has been changed between fetches or puts. at /usr/local/share/perl/5.8.8/Apache/Session/Store/Informix.pm line 78

Sintáxis: [ Descargar ] [ Ocultar ]

# Aplicación
#-------------------------------------------------------------------------------
# Recibo parámetro POST el id de la sesión.
import_names('Q');
my $id = $Q::id_session || "";
# Abro una conexión a la base sessions
my $base = 'sessions';
my $dbh = datacon_base($base);
my ($sesion_valida) = autenticar_sesion( $dbh, $id);
if ($sesion_valida eq 'F') {
print "Hubo error……….";
}
else {
# Sesión Válida, Recupero Variables almacenados en sesión previamente
#---------------------------------------------------------------------
my %session;
eval {
tie %session, 'Apache::Session::Informix', $sid, {
Handle => $dbh ,
Commit => 1 } or die "No puede crear la sesión $sid";
};
# print “ Imprimo error si hubo $@ .........................";
#
# ERROR producido: DBD::Informix::st fetchrow_arrayref failed: SQL: -1820:
# Host variable type has been changed between fetches or
# puts. at /usr/local/share/perl/5.8.8/Apache/Session/Store/Informix.pm line 78
# Obtengo valores guardados
my $nombre= $session->{'nombre'};
my $apellido= $->{'apellido'};
print “ Imprimo $snombre y $apellido ” ;
# $nombre y $apellido están vacíos... Se guardaron bien sin errores, pero es como que no se hizo el commit();
...
# Funciones
#--------------------------------------------------------------------------------
# Abro una conexión a base sessions
#-------------------------------------------------------------------------------
my $base = 'sessions';
my $dbh = funciones_rgenuinos::datacon_base($base);
# Creo una sesión
#---------------------------------------------------------------------------------------------------------------
sub crear_sesion {
my $dbh= shift;
my $nombre= shift;
my $id = undef;
my %session;
eval {
tie %session, 'Apache::Session::Informix', $id, {
Handle => $dbh ,
Commit => 1} or die "No puede crear la sesión $id";
};
if ($@) {
$sid= 'F'; # Hubo error no se creo la sesión
}
else {
# La sesión fue creada, guardo valores a la sesión
#--------------------------------------------------------------------------
$session{'nombre'} = ‘Juan’; # Sesión creada guardo variable nombre
$session{'apellido'} = ‘Perez’;
$id = $session{_session_id}; # id de la sesión generado
}
return ($id);
}
#-----------------------------------------------------------------------------------
# Función verifica si existe la sesión $sid, si existe extrae valores guardados previamente
#--------------------------------------------------------------------------------------
sub autenticar_sesion {
my $dbh= shift;
my $id = shift;
my %session;
eval {
tie %session, 'Apache::Session::Informix', $id, {
Handle => $dbh ,
Commit => 1 } or die "No puede crear la sesión $id";
};
if ($@) {
# Hubo algún tipo de error
$sesion_valida='F';
}
else {
# La sesion existe, es valida, Actualizo hora de expiración
$session{'hora_ejecucion'} = $hora_actual; # Guardo valor en sesión
$sesion_valida ='T';
}
}
return ($sesion_valida); # devuelvo ‘T’ o ‘F’ indicando si existe sesión válida.
}

¿Qué es lo que veo? Guarda bien los datos en la sesión, pero cuando quiero recuperar los datos guardados están vacíos.

Bueno, ¡¡¡cualquier ayuda me sería muy valiosa!!! Gracias

por **explorer** » 2012-03-12 11:11 @507

El error de Informix deberás buscarlo en la documentación correspondiente.

Lo que veo es que las líneas 42 y 43 deberían ser

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $nombre   = $session{'nombre'}; 
    my $apellido = $session{'apellido'};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y... las comillas que muestras, no creo que sean del todo válidas, para Perl. Me refiero a que no es lo mismo usar "...", que “...” (comillas tipográficas). Lo mismo para las comillas simples.

Foro - Perl en Español

Minimizar número de conexiones a base de datos

Minimizar número de conexiones a base de datos

Publicidad

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

Re: Minimizar número de conexiones a base de datos

¿Quién está conectado?