Las tablas de tablas son también sencillas de manejar, de forma muy parecida a los arreglos de arreglos.
my %blosum62 = ( ## declaracion con asignacion explicita 'A' => { 'A' => -4, 'R' => -1, ... 'X' => -1 } ... 'X' => { 'A' => --, 'R' => -1, ... 'X' => -1 } ); my %tabla; for($i=0;$i<5;$i++) ## elemento a elemento desde bucles { for($j=0;$j<10;$j++) { $tabla{$i}{$j} = $i * $j; } } for $i ( 1 .. 10 ) ## asignacion de subtablas enteras { $tabla[$i] = { %subtabla }; # tabla[$i] contiene una referencia a una tabla }
Bruno Contreras-Moreira