[perl] Reference to an array

[Sergio Tirado]

Estoy usando DBI para obtener los resultados de un SELECT:

[snip]
     my $query = "SELECT * FROM alumnoGrupo WHERE matricula=$mat";
     my $output = $dbh->prepare($query);
     $output->execute;
     my $noGrupo = $output->fetchall_arrayref;
[snip]

DBI me entrega el resultado en una referencia a un arreglo, asi que para obtener el valor de los datos tengo que hacerlo de la siguiente forma:

$PrimerDato = $noGrupo->[0][0];
$SegundoDato = $noGrupo->[0][1];
etc...

Como puedo obtener el número de renglones y campos que estoy recibiendo? Es decir, el valor de "x" y de "y" para usarlo de la siguiente manera:

$ultimoDato = $noGrupo->[x][y];

No se si me explico...


--
Sergio Tirado Ochoa
Director de Informática
ITESM Campus Guaymas

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl