Una manera de implementar los atributos de un objeto en Perl sería muy similar a los registros de la sección 3.2.4 y se podrían generar así:
my $pdb1 = constructor_PDB('1lfu',3,'1lfu.pdb'); sub constructor_PDB # un metodo que genera nuevos objetos se llama constructor { # valores de los atributos como parametros my($nombre,$n_de_cadenas,$archivoPDB) = @_; my $rPDB = { 'nombre' => $nombre, 'ncadenas' => $n_de_cadenas, 'archivo' => $archivoPDB, 'coordenadas' => () }; return $rPDB; # devuelve una referencia al objeto }
Bruno Contreras-Moreira