[perl] Reference to an array

[Bolo Lacertus]

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