Foro - Perl en Español

por **colorado** » 2011-05-07 14:19 @638

Tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( PASS, "<   test.txt" );
my @contenido = <PASS>;
foreach my $linea (@contenido) {
    chomp $linea;
    print $linea;
}
close(PASS);
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

test.txt:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

hola amigo
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Hasta ahí todo funciona bien, pero si el archivo tiene más de una línea, la cosa se complica:

test.txt:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

hola amigo

cómo estás
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

hola amigocomo estasColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que necesito es eliminar el salto de línea respetando las dos líneas para que quede así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

hola amigo

cómo estásColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

open(PASS, "< test.txt" );
my @contenido = <PASS>;
close(PASS);
for(my $i=0;$i<$#contenido;$i++) {
    print $contenido[$i]; # imprime por pantalla con el '\n' propio de la linea
}
chomp($contenido[$#contenido]); # quita el '\n' final
print $contenido[$#contenido];
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Un saludo.

por **colorado** » 2011-05-08 03:22 @182

perfecto Cs4r_ hace exactamente lo que quería

muchas gracias, tío.

por **explorer** » 2011-05-08 11:15 @510

No había entendido la pregunta.

Tengo esta otra versión (que no he probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open my $TEST, q[<], 'test.txt';
local $/;             # modo 'slurp'
my $test = <$TEST>;   # leemos todo
close $TEST;
 
chomp $test;          # quitar el último
print $test;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **colorado** » 2011-05-08 13:18 @596

Gracias explorer, he probado esa versión y no funciona.

pero si cambiamos la línea 6, sí va:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

6.chop $test;          # quitar el último
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

es decir, cambiar chomp() por chop().

Foro - Perl en Español

Eliminar el último salto de línea de un texto

Eliminar el último salto de línea de un texto

Publicidad

Re: Eliminar el último salto de línea de un texto

Re: Eliminar el último salto de línea de un texto

Re: Eliminar el último salto de línea de un texto

Re: Eliminar el último salto de línea de un texto

Re: Eliminar el último salto de línea de un texto

Re: Eliminar el último salto de línea de un texto

¿Quién está conectado?