Foro - Perl en Español

Hola, ¿qué tal?

¿Podrían orientarme en cómo imprimir el header, la primera y la última línea antes de un '>' (que es mi siguiente secuencia).

Gracias.

Sería interesante ver algún ejemplo de entrada, aunque sea de forma reducida.

Hola, gracias. El ejemplo es el siguiente:

Necesito imprimir en una sola línea lo que te pongo de color:

>Cluster 53
0 84aa, >001354_2208_2784... *
1 84aa, >002597_2216_2936... at 100%
2 84aa, >010618_2176_1588... at 100%
3 84aa, >014924_2258_2885... at 100%
4 84aa, >018206_2216_1313... at 100%
5 84aa, >020274_2136_2420... at 100%
6 84aa, >021422_2242_0732... at 100%

y obtener el total de líneas porque deseo saber cuántas lecturas (en mi caso, secuencias) hay en ese continuo (grupo).

Disculpa, es que tengo una versión muy viejita de Perl. ¿El read_file() es lo mismo para la versión viejita?

¡Saludos!

La función read_file() se importa desde el módulo File::Slurp. Puedes usar otro método para leer ficheros, desde luego.

Es que la versión que tengo es la 5.8 y la verdad no sé qué diferencia haya con la versión 5.010 porque evidentemente hay librerías que no puedo utilizar...

¿Hay alguna otra manera de mandar llamar el archivo de entrada...?

Para leer un fichero de texto te vale con la terna open(), <> y close(). Hay centenares de ejemplos en este foro y seguro que tu has usado tus propios métodos para meter un fichero de texto en un array.

Si quieres que mi código funcione en tu Perl viejito (más de tres años), te vale con quitar el use 5.010; y cambiar los say() por print() (con un "\n" al final).

¡Ah!, Ok, Ok, gracias... Sí, de hecho, eso ya lo había cambiado... pero esa era mi duda

¡¡Saludos!!