Arreglos de arreglos

En Perl es muy fácil anidar arreglos dentro de arreglos, por lo que podemos crear matrices N-dimensionales, como ya mencionamos en la sección 2.3. Hay varias maneras de crearlas y consultarlas, que os mostraré con ejemplos:

my @matriz2_3 = ( [1,2,"tres"],  ## declaracion con asignacion explicita
                  [4,5,"seis"]);

my @matriz;

for($i=0;$i<5;$i++)              ## asignacion elemento a elemento desde bucles
{
	for($j=0;$j<10;$j++)
	{
		$matriz[$i][$j] = $i * $j;
	}
}


for $i ( 1 .. 10 )               ## asignacion de filas enteras
{
	# ambas expresiones son validas
	push( @matriz , [ @dimension ];
	$matriz[$i] = [ @dimension ]; 
	# $matriz[$i] contiene una referencia a un arreglo
}

while(<ARCHIVO>)                 ## leyendo un archivo 
{
	push( @matriz , split(/\s+/,$_);
}

Bruno Contreras-Moreira
http://www.eead.csic.es/compbio