... lee todas las líneas, y luego las recorre y se queda con la última línea que no sea un espacio en blanco, ni un comentario ni una cabecera FASTA. Y lo guarda en $secuencia. Luego le quita los espacios en blanco. Luego pide el nombre del archivo que contiene el gen (?) y hace lo mismo que ...
... introduzca la zona vir\n"; print "Dime nombre del archivo que contiene la zona vir\n"; my $fichero = <STDIN>; open my $fichero; my @fasta = <$fichero>; close $fichero; my $secuencia; foreach (@fasta) { next if /^\s*$/; next if /^\s*#/; next if /^>\; $secuencia = $_; } $secuencia ...
... print $OUTPUT $línea; # vamos guardando el resultado } } close $INPUT; close $OUTPUT; __END__[/perl] Podemos pensar que un archivo fasta es un conjunto de registros, separados con "\n>". Entonces podemos hacer que Perl lea esos registros de forma completa (no líneas, sino ...
Un buen día, explorer. He creado un script para obtener unas secuencias de un archivo fasta. Con el código anterior que me diste solo me saca el encabezado pero no me saca la secuencia. Los datos son estos: [text]>ENST00000415118 havana_ig_gene:known chromosome:GRCh38:14:22438547:22438554:1 ...