¡Puntuación alta para ayuda con problemas de Perl y bioinformática!

La pregunta del cartel es muy sencilla. Como sabemos que cada gen tiene cuatro líneas, podemos leer cuatro líneas de forma continua en cada bucle:

El ejemplo es el siguiente:

#!/usr/bin/perl

open(IN,"tuarchivo"); #Archivo de entrada

mientras(mi $line1=lt;INgt;){ #Leer la primera línea

my $line2=lt;INgt;; #Leer la segunda línea

lt;INgt;; #La tercera línea se ignora

my $ line4=lt; INgt;; #Lee la cuarta línea

}

Eso es

Si no entiendes, qq yo qq a ver mi nombre