[caracas-pm] caracas-pm Digest, Vol 39, Issue 7

Luis Muñoz lem at cantv.net
Wed Aug 22 13:29:52 PDT 2007


Hola Daniel.

Por favor no hagas top-posting... Tampoco es buena idea hacer quote  
de todo el digest en tu respuesta ;-)

On Aug 22, 2007, at 3:39 PM, Daniel Rojas wrote:

> 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, [...]

El fragmento de código que enviaste, no tiene sentido. Fíjate (cito  
el código original):

>> use strict;
>> use DBI;
>>
>> my $dbh = DBI->connect( ... ) || die "Database connection not  
>> made: $DBI::errstr";
>>
>> my $sql = qq{ SELECT * FROM gl_balances where set_of_books_id =  
>> 344 and
>> code_combination_id = 166823 and currency_code = 'VEB'};
>> my $sth = $dbh->prepare( $sql );
>> $sth->execute();

Hasta aquí, bien...

>> print $sth;

Esta línea no tiene sentido. Esto *no* hace lo que crees que hace.  
Esencialmente, no estás haciendo fetch() de los resultados... Lo que  
quieres, es algo como esto

while (my @r = $sth->fetchrow_array) { print "@r\n"; }
$sth->finish;
undef $sth;

Saludos

-lem



More information about the caracas-pm mailing list