[Perl] Conexiones Persistentes de BD

[Valentin Ortiz Ferretiz]

Ke tal,

He estado leyendo acerca de las conexiones persistentes con las Bases de
Datos, bueno, ya tengo a Mason corriendo con mod_perl, reci=E9n acabo de
instalar el Apache::DBI y le agregue a mi configuraci=F3n del apache un
archivo startup.pl que tiene lo siquiente:

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3Dstartup.pl=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
$ENV{'ORACLE_HOME'}             =3D "/usr/oracle/901EE/u01/server";
use Apache::Registry;
use Apache::DBI;
use strict;


Apache::DBI->connect_on_init("dbi:Oracle:host=3Dmyhost.reco;sid=3DSID;port=
=3D1521,"userid", "passwd");
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Y listo, me puse a monitorear las sesiones de Oracle y efectivamente hay
conexiones inactivas de apache, eso quiere decir que si hay conexiones
persistentes, pero la pregunta es =BFCOMO LAS UTILIZO?

<%init>
  my $dbh =3D   =20
DBI->connect("dbi:Oracle:host=3Dmyhost.reco;sid=3DSID;port=3D1521","userid"=
,
"passwd");
</%init>

al hacer lo anterior estoy realizando una nueva conexion cierto? por lo
tanto valio queso que iniciara la conexion desde el apache o me
equivoco?

Me pregunto si existe una forma de almacenar en una variable global a
Apache::DBI->connect_on_init(.....) y poder usarla en cualquier
componente de mason...

Por favor... iluminenme  =3D)


--=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Valentin Ortiz Ferretiz
   Reco S.A. de C.V.
  http://reco.vera.net
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Key fingerprint =3D E2E7 5691 79C9 8B15 CC6B  6DC7 F2F1 DA03 1350 9640