Los métodos de un objeto permiten manipular sus atributos desde el exterior, sin necesariamente conocer las tripas del objeto:
leer_archivoPDB($pdb1,0); sub leer_archivoPDB { my($rPDB,$comprimido) = @_; # variables locales my $res_leidos = 0; if($comprimido == 1) { open(PDB,"zcat $rPDB->{'archivo'} |") || warn "no puedo leer zcat $rPDB->{'archivo'}\n"; # rellena $rPDB->{'coordenadas'} # $res_leidos++; close(PDB); } else { open(PDB,"$rPDB->{'archivo'}") || warn "no puedo leer $rPDB->{'archivo'}\n"; # rellena $rPDB->{'coordenadas'} # $res_leidos++; close(PDB); } return $res_leidos; }
Bruno Contreras-Moreira