Foro - Perl en Español

por **Juan Manu** » 2013-06-13 14:50 @660

Hola, soy nuevo en el tema de programación en general... obviamente también en Perl y tengo la siguiente pregunta:

¿Por qué cuando escribo algo como:

while ($linea = <STDIN>){
chomp $linea;}
print $linea;

la función print no imprime nada en la salida estándar?

Lo que intento hacer es asignar varias líneas (desde entrada estándar) a una sola variable.
Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

actg

ggct

aaaa

gtacColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Todas esas 4 líneas adjudicárselas a la variable $linea.

De antemano, ¡¡muchas gracias por cualquier ayuda!!

P.D.: No soy formado en ciencias exactas, ¡¡¡entonces me disculparán errores garrafales!!!

Gracias,
Juan Manu

Entonces, el bucle recorre todas las líneas que le llegan desde la entrada estándar. Y por cada una de ellas, le quita el carácter/los caracteres de final de línea, y... nada más. Así que, yo supongo que la última línea del código, lo único que hace es sacar la última línea leída de la entrada estándar, nada más.

Si lo que quieres es almacenar todo el archivo en una sola variable, puedes ir acumulando:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $secuencia;
while (my $linea = <STDIO>) {
    chomp $linea;
    $secuencia .= $linea;
}
print "[$secuencia]\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra forma: leerlo de golpe en un array, quitar todos los finales de línea, y luego unirlo todo en la variable:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @archivo = <STDIO>;    # leemos todas las líneas
chomp @archivo;
my $secuencia = join '', @archivo;
print "[$secuencia]\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hay más formas...

Foro - Perl en Español

print y chomp juntos

print y chomp juntos

Publicidad

Re: print y chomp juntos

¿Quién está conectado?