Se trata de un programa de getorf. Al final tengo que imprimir las proteínas por orden del codón de paro. He comprobado que los valores (proteínas) y las claves (posición codón de paro) estuviesen en el hash y eso está bien, pero a la hora de dividir la proteína en trozos de 60 aminoácidos me da problemas, solo aparece la primera línea de las proteínas.
Agradecería mucho si alguien me pudiese decir qué estoy haciendo mal, porque no doy con el error...
Dejo abajo el código.
Using perl Syntax Highlighting
- my%posiciones;
- my%proteinas;
- my@posicionesfinales;
- sub presentacion{
- my($len)=0;
- for($re=0;$re<scalar(@$final);$re++){
- $n=$re+1;
- $lineaprotein=$$proteina{$$final[$re];};
- print SALIDA "\n> 1\-$longitudadn\_$n $$posiciones{$cad} $cabecera\n";
- $len=(length($lin)/60);
- for($q=0;$q<$len;$q+=60){
- $trozo=substr($lin,$q,60);
- print SALIDA "$trozo\n";
- }
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4