Que tal Ernesto, gracias por tu respuesta, el ejemplo que coloque lo puse a manera de referencia y de manera simple para ilustrar el error, ya que el programa original es mas extenso, ya he probado Class::DBI y DBIx::Class y ambos arrojan el mismo error que publique con el Oracle, la consulta que hago deberia traer solo 14 registros, pero cabe mencionar que la tabla contiene
1.6 millones de registros, no se si eso influye, porque como les habia dicho hay una tabla mas pequeña a la cual he consultado sin tener ese problema, otra cosa es que la tabla que me da problemas no posee ni primary key, ni claves foraneas, ni indices, en el sqlplus funciona, pero en perl me da ese error, no si sea algun parametro que el Oracle necesita en el conection string o algun flag, buffer etc., agradeciendo su ayuda se despide, Daniel Rojas.
<br><br><br><br><div><span class="gmail_quote">El día 22/08/07, <b class="gmail_sendername"><a href="mailto:caracas-pm-request@pm.org">caracas-pm-request@pm.org</a></b> <<a href="mailto:caracas-pm-request@pm.org">caracas-pm-request@pm.org
</a>> escribió:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Send caracas-pm mailing list submissions to<br> <a href="mailto:caracas-pm@pm.org">
caracas-pm@pm.org</a><br><br>To subscribe or unsubscribe via the World Wide Web, visit<br> <a href="http://mail.pm.org/mailman/listinfo/caracas-pm">http://mail.pm.org/mailman/listinfo/caracas-pm</a><br>or, via email, send a message with subject or body 'help' to
<br> <a href="mailto:caracas-pm-request@pm.org">caracas-pm-request@pm.org</a><br><br>You can reach the person managing the list at<br> <a href="mailto:caracas-pm-owner@pm.org">caracas-pm-owner@pm.org</a><br>
<br>When replying, please edit your Subject line so it is more specific<br>than "Re: Contents of caracas-pm digest..."<br><br><br>Today's Topics:<br><br> 1. Problema al conectarme con Oracle 8i y DBI (Daniel Rojas)
<br> 2. Problema al conectarme con Oracle 8i y DBI (Daniel Rojas)<br> 3. Re: Problema al conectarme con Oracle 8i y DBI<br> (Ernesto Hernandez-Novich)<br><br><br>----------------------------------------------------------------------
<br><br>Message: 1<br>Date: Wed, 22 Aug 2007 12:02:01 -0400<br>From: "Daniel Rojas" <<a href="mailto:danielrojasm@gmail.com">danielrojasm@gmail.com</a>><br>Subject: [caracas-pm] Problema al conectarme con Oracle 8i y DBI
<br>To: <a href="mailto:caracas-pm@pm.org">caracas-pm@pm.org</a><br>Message-ID:<br> <<a href="mailto:abcce59e0708220902y5b11d998jc55580129acbc5eb@mail.gmail.com">abcce59e0708220902y5b11d998jc55580129acbc5eb@mail.gmail.com
</a>><br>Content-Type: text/plain; charset="iso-8859-1"<br><br>Buenas amigos les escribo en la oportunidad de comentarles un problema que<br>tengo al conectarme a un servidor Oracle 8i, es una conexion sencilla donde
<br>consulto una tabla, el problema es que cuando acceso a tablas con pocos<br>registros, me trae los datos pero cuando acceso a una tabla que contiene<br>1.638.237 registros, se queda como 20 segundos esperando y a la final arroja
<br>un error<br><br>este es el string de<br>conexion:---------------------------------------------------------<br><br>prueba2.pl:<br><br>use strict;<br>use DBI;<br><br>my $dbh = DBI->connect( 'dbi:Oracle:ADIN',
<br> 'myusuario',<br> 'myclave',<br> {<br> RaiseError => 1,<br> AutoCommit => 0<br>
}<br> ) || die "Database connection not made: $DBI::errstr";<br><br>my $sql = qq{ SELECT * FROM gl_balances where set_of_books_id = 344 and<br> code_combination_id = 166823 and currency_code = 'VEB'};
<br>my $sth = $dbh->prepare( $sql );<br>$sth->execute();<br><br>print $sth;<br><br>$dbh->disconnect();<br><br><br>este es el error que obtengo despues de 20 segundos de<br>espera:-----------------------------<br>
<br><br>DBD::Oracle::st execute failed: ORA-03113: fin de archivo en el canal de<br>comunicaci?n (DBD ERROR: OCIStmtExecute) [for Statement " SELECT * FROM<br>gl_balances where set_of_books_id = 344 and code_combination_id = 166823 and
<br>currency_code = 'VEB'"] at prueba2.pl line 15.<br><br>A simple vista pudiera parecer un problema del servidor pero el DBA reviso<br>la configuracion del servidor y todo parece estar correcto, y ademas cuando
<br>hago cualquier consulta con sqlplus en consola todo funciona bien, el<br>problema es con perl, el cliente Oracle esta bien instalado y configurado,<br>que me sugieren uds?, gracias de antemano.<br>-------------- next part --------------
<br>An HTML attachment was scrubbed...<br>URL: <a href="http://mail.pm.org/pipermail/caracas-pm/attachments/20070822/1bfdfed4/attachment.htm">http://mail.pm.org/pipermail/caracas-pm/attachments/20070822/1bfdfed4/attachment.htm
</a><br><br>------------------------------<br><br>Message: 2<br>Date: Wed, 22 Aug 2007 12:02:01 -0400<br>From: "Daniel Rojas" <<a href="mailto:danielrojasm@gmail.com">danielrojasm@gmail.com</a>><br>Subject: [caracas-pm] Problema al conectarme con Oracle 8i y DBI
<br>To: <a href="mailto:caracas-pm@pm.org">caracas-pm@pm.org</a><br>Message-ID:<br> <<a href="mailto:abcce59e0708220902y5b11d998jc55580129acbc5eb@mail.gmail.com">abcce59e0708220902y5b11d998jc55580129acbc5eb@mail.gmail.com
</a>><br>Content-Type: text/plain; charset="iso-8859-1"<br><br>Buenas amigos les escribo en la oportunidad de comentarles un problema que<br>tengo al conectarme a un servidor Oracle 8i, es una conexion sencilla donde
<br>consulto una tabla, el problema es que cuando acceso a tablas con pocos<br>registros, me trae los datos pero cuando acceso a una tabla que contiene<br>1.638.237 registros, se queda como 20 segundos esperando y a la final arroja
<br>un error<br><br>este es el string de<br>conexion:---------------------------------------------------------<br><br>prueba2.pl:<br><br>use strict;<br>use DBI;<br><br>my $dbh = DBI->connect( 'dbi:Oracle:ADIN',
<br> 'myusuario',<br> 'myclave',<br> {<br> RaiseError => 1,<br> AutoCommit => 0<br>
}<br> ) || die "Database connection not made: $DBI::errstr";<br><br>my $sql = qq{ SELECT * FROM gl_balances where set_of_books_id = 344 and<br> code_combination_id = 166823 and currency_code = 'VEB'};
<br>my $sth = $dbh->prepare( $sql );<br>$sth->execute();<br><br>print $sth;<br><br>$dbh->disconnect();<br><br><br>este es el error que obtengo despues de 20 segundos de<br>espera:-----------------------------<br>
<br><br>DBD::Oracle::st execute failed: ORA-03113: fin de archivo en el canal de<br>comunicaci?n (DBD ERROR: OCIStmtExecute) [for Statement " SELECT * FROM<br>gl_balances where set_of_books_id = 344 and code_combination_id = 166823 and
<br>currency_code = 'VEB'"] at prueba2.pl line 15.<br><br>A simple vista pudiera parecer un problema del servidor pero el DBA reviso<br>la configuracion del servidor y todo parece estar correcto, y ademas cuando
<br>hago cualquier consulta con sqlplus en consola todo funciona bien, el<br>problema es con perl, el cliente Oracle esta bien instalado y configurado,<br>que me sugieren uds?, gracias de antemano.<br>-------------- next part --------------
<br>An HTML attachment was scrubbed...<br>URL: <a href="http://mail.pm.org/pipermail/caracas-pm/attachments/20070822/1bfdfed4/attachment-0001.htm">http://mail.pm.org/pipermail/caracas-pm/attachments/20070822/1bfdfed4/attachment-0001.htm
</a><br><br>------------------------------<br><br>Message: 3<br>Date: Wed, 22 Aug 2007 12:22:48 -0400<br>From: Ernesto Hernandez-Novich <<a href="mailto:emhnemhn@gmail.com">emhnemhn@gmail.com</a>><br>Subject: Re: [caracas-pm] Problema al conectarme con Oracle 8i y DBI
<br>To: Perl Mongers Caracas - Venezuela <<a href="mailto:caracas-pm@pm.org">caracas-pm@pm.org</a>><br>Message-ID: <<a href="mailto:1187799768.4994.8.camel@trillian.ius.cc">1187799768.4994.8.camel@trillian.ius.cc
</a>><br>Content-Type: text/plain; charset=UTF-8<br><br>On Wed, 2007-08-22 at 12:02 -0400, Daniel Rojas wrote:<br>> Buenas amigos les escribo en la oportunidad de comentarles un problema<br>> que tengo al conectarme a un servidor Oracle 8i, es una conexion
<br>> sencilla donde consulto una tabla, el problema es que cuando acceso a<br>> tablas con pocos registros, me trae los datos pero cuando acceso a una<br>> tabla que contiene 1.638.237 registros, se queda como 20 segundos
<br>> esperando y a la final arroja un error<br>><br>> este es el string de<br>> conexion:---------------------------------------------------------<br>><br>> prueba2.pl:<br>><br>> use strict;<br>> use DBI;
<br>><br>> my $dbh = DBI->connect( 'dbi:Oracle:ADIN',<br>> 'myusuario',<br>> 'myclave',<br>> {<br>> RaiseError => 1,
<br>> AutoCommit => 0<br>> }<br>> ) || die "Database connection not made:<br>> $DBI::errstr";<br>><br>> my $sql = qq{ SELECT * FROM gl_balances where set_of_books_id = 344
<br>> and code_combination_id = 166823 and currency_code = 'VEB'};<br>> my $sth = $dbh->prepare( $sql );<br><br>Si la instrucci?n SQL es est?tica, no tiene mayor sentido prepararla. Si<br>piensas utilizar la misma instrucci?n SQL para varias consultas,
<br>entonces deber?as tener placeholders (?) en lugar de los valores<br>concretos (344, 166823 y 'VEB') y luego llamar al execute() con esos<br>par?metros.<br><br>> $sth->execute();<br><br>Completando el comentario anterior, el SQL deber?a ser parametrizado con
<br>placeholders y ejecutar<br><br>$sth->execute(344,166823,'VEB');<br><br>Hasta aqu?, todo bien.<br><br>> print $sth;<br><br>No se hace "print $sth". Hacer eso (si te fijaste en el manual) es<br>equivalente a solicitar UN string con TODOS los registros. UN string...
<br>TODOS los registros... Eso no es razonable cuando tienes muchos<br>registros por razones (espero obvias) de consumo de memoria.<br><br>Lo que quieres hacer es iterar sobre los resultados para procesarlos<br>fila por fila
<br><br>while ( my @fila = $sth->fetchrow_array ) {<br> # @fila contiene todos los campos de una fila<br>}<br><br>Vuelve a leer los manuales de DBI, porque precisamente al comienzo est?n<br>los ejemplos de uso para un SELECT, independientemente del n?mero de
<br>filas a retornar.<br><br>Hoy en d?a hay muy pocas razones para utilizar DBI directamente. Es<br>preferible que utilices un ORM como DBIx::Class para tus operaciones de<br>SQL de manera que nunca tengas que escribir SQL y as?, detalles como los
<br>que mencion? de preparar, parametrizar e iterar, sean manejados por una<br>librer?a en lugar de tener que recordarlos cada vez.<br>--<br>Ernesto Hern?ndez-Novich - Linux 2.6.18 i686 - Unix: Live free or die!<br>Geek by nature, Linux by choice, Debian of course.
<br>If you can't aptitude it, it isn't useful or doesn't exist.<br>GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3<br><br><br><br>------------------------------<br><br>_______________________________________________
<br>caracas-pm mailing list<br><a href="mailto:caracas-pm@pm.org">caracas-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/caracas-pm">http://mail.pm.org/mailman/listinfo/caracas-pm</a><br><br>End of caracas-pm Digest, Vol 39, Issue 7
<br>*****************************************<br></blockquote></div><br>