He elaborado un programa para separar una secuencia de DNA en tripletas separadas por espacios, y que al final no haya ningún espacio.
Al intentar compilar el script me dice que hay un error cercano al 2º "if" (es el responsable de que no haya espacios tras la última tripleta).
Agradezco cualquier aporte que pueda solucionar mi error:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- my $string="ATTCCTGATGCGACCCCT";
- print "$string\n";
- for (my $i=0; $i{
- print substr($string,$i,3); #Imprime de 3 en tres los nucleotidos.
- if ($i != (length($string)-3)) #Evita que se ponga un espacio al haber llegado al final de la secuencia
- {
- print " "; #Imprime el espacio
- }
- }
- print "\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¡¡Gracias!! Un saludo
