[perl] Reference to an array

[Sergio Tirado]

Perfecto, muchísimas gracias.

Experimentando encontré que otra manera de obtener el número de registros es la siguiente:

$noRegistros = @$noGrupo;

Saludos.

At 01:34 PM 4/4/2000 -0500, you wrote:
>Saludos!!!
>
>Ok, para obtener las cardinalidades de tus arreglos:
>
>Sergio Tirado wrote:
> > $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];
>
>Como siempre, tienes que evaluar el arreglo como escalar, "@a+0" pero
>tienes que hacerlo para un arreglo anónimo derreferenciandolo con un
>bloque con "{}":
>
>Cardinalidad de registros (notese que Cardinalidad=IndiceMaximo+1):
>$cardR=@{$noGrupo}+0;
>
>Cardinalidad de campos del registro x:
>$cardCx=@{$noGrupo->[x]}+0;
>
>De modo que el último campo del último registro es:
>$ultimo=$noGrupo->[@{$noGrupo}-1]->[$noGrupo->[@{$noGrupo}-1]}-1];
>
>O, desgosado:
>$indiceMR=@{$noGrupo}-1;
>$indiceMC=@{$noGrupo->[$indiceMR]}-1;
>
>$ultimo=$noGrupo->[$indiceMR]->[$indiceMC];
>
>
>Vease la referencia de las referencias: Daniel Sol
>-- 
>Bolo Lacertus: lacertus@servidor.dgsca.unam.mx          ==~\___\
>http://proteo.dgsca.unam.mx/cgi-bin/lacertus/hola       =__vvvv
>--------- Pie de mensaje --------------------------------
>Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
>Cancelar inscripcion:
>mail to: majordomo@tlali.iztacala.unam.mx
>text   : unsubscribe perl

--
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