Página 1 de 1
Impresión de determinadas líneas
Publicado:
2010-10-08 15:40 @694por wampaier
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.
Re: Impresión de determinadas líneas
Publicado:
2010-10-08 16:00 @708por explorer
Sería interesante ver algún ejemplo de entrada, aunque sea de forma reducida.
Re: Impresión de determinadas líneas
Publicado:
2010-10-08 16:09 @714por wampaier
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).
Re: Impresión de determinadas líneas
Publicado:
2010-10-08 16:30 @729por explorer
Using perl Syntax Highlighting
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use diagnostics;
use File::Slurp;
use autodie;
my @lineas = read_file('kk.txt'); # leemos el fichero
chomp($lineas[0], $lineas[1]); # quitamos los finales de línea de las dos primeras
$lineas[1] =~ s/^.*?>(.+?)\..+$/$1/; # de la segunda, nos quedamos con lo que queremos
say "$lineas[0] $lineas[1]"; # imprimimos las dos líneas juntas
say "Número de líneas: ", scalar @lineas; # y el número de líneas leídas
__END__
>Cluster 53 001354_2208_2784
Número de líneas: 8
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
Re: Impresión de determinadas líneas
Publicado:
2010-10-09 13:31 @605por wampaier
Disculpa, es que tengo una versión muy viejita de Perl. ¿El read_file() es lo mismo para la versión viejita?
¡Saludos!
Re: Impresión de determinadas líneas
Publicado:
2010-10-09 13:41 @612por explorer
La función read_file() se importa desde el módulo
File::Slurp. Puedes usar otro método para leer ficheros, desde luego.
Re: Impresión de determinadas líneas
Publicado:
2010-10-09 13:51 @618por wampaier
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...?
Re: Impresión de determinadas líneas
Publicado:
2010-10-09 13:58 @623por explorer
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).
Re: Impresión de determinadas líneas
Publicado:
2010-10-09 14:32 @647por wampaier
¡Ah!,
Ok,
Ok, gracias... Sí, de hecho, eso ya lo había cambiado... pero esa era mi duda
¡¡Saludos!!