[perl] DBI con store procedures

[Luis Narvaez]

Alguien sabe por que el siguiente codigo solo funciona cuando el 
resultado contiene una fila y una columna?

...

 $sth = $dbh->prepare("exec store_procedure1 'argumento'");
 $sth->execute;

while (@row = $cursor->fetchrow_array) {
	for($i=0; $i < $cursor->{NUM_OF_FIELDS}; $i++)
	{
	   print "$row[$i]";
	}
	print "\n";
}

...

pero cuando tiene mas registros ya no imprime nada.


Usando

   DBI::dump_results($sth);

nos regresa el numero correcto de filas de resultado pero no podemos ver 
ninguna fila ni columna.

Gracias
Get Your Private, Free Email at http://www.hotmail.com
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl