Foro - Perl en Español

La comunidad de programadores en Perl de habla hispana.
http://perlenespanol.com/foro/

Eliminar líneas en blanco

http://perlenespanol.com/foro/eliminar-lineas-en-blanco-t4236.html

Página 1 de 2

Eliminar líneas en blanco

NotaPublicado: 2009-08-21 12:01 @542
por principiante
Tengo en una variable almacenado el siguiente texto:

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
join(53022..53183,53484..53624,53703..54494)

compl(23519..24451,24542..24655,24752..24962,25041..25435,
25524..25743,25825..25997,26081..26203,26292..26452,
26543..26776,26862..27012,27099..27281,27372..27533,
27618..27713,27803..28431,28708..28805,28890..29080,
29160..30065,30147..30311,30410..30816,30902..31079)

4523452..4678299
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


¿Como podría hacer para eliminar las líneas en blanco para obtener:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
join(53022..53183,53484..53624,53703..54494)
compl(23519..24451,24542..24655,24752..24962,25041..25435,
25524..25743,25825..25997,26081..26203,26292..26452,
26543..26776,26862..27012,27099..27281,27372..27533,
27618..27713,27803..28431,28708..28805,28890..29080,
29160..30065,30147..30311,30410..30816,30902..31079)
4523452..4678299
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

?

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 12:13 @551
por Leo_Gutierrez
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. my $variable = 'join(53022..53183,53484..53624,53703..54494)
  5.  
  6. compl(23519..24451,24542..24655,24752..24962,25041..25435,
  7. 25524..25743,25825..25997,26081..26203,26292..26452,
  8. 26543..26776,26862..27012,27099..27281,27372..27533,
  9. 27618..27713,27803..28431,28708..28805,28890..29080,
  10. 29160..30065,30147..30311,30410..30816,30902..31079)
  11.  
  12. 4523452..4678299';
  13. $variable =~ s/\n//;
  14. print $variable;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 12:17 @553
por netsoul
RockoX, ¡Eres más veloz que Supermán! :!:

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 12:23 @558
por Leo_Gutierrez
netsoul escribiste:RockoX, ¡Eres más veloz que superman! :!:


Bueno fuera. :)

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 12:58 @581
por netsoul
:o , ahora me dí cuenta. Creo que podría ser más efectivo con esto (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $variable =~ s/\n\s+/\n/g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 13:18 @596
por principiante
¿Y si quisiera obtener cada apartado separado por un salto de línea en una sola línea?

Es decir:

Partiendo de esto:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
join(53022..53183,
53484..53624,53703..54494)

compl(23519..24451,24542..24655,
24752..24962,25041..25435,
25524..25743,25825..25997,26081..26203)

4523452..4678299
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Obtener:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
join(53022..53183,53484..53624,53703..54494)
compl(23519..24451,24542..24655,24752..24962,25041..25435,25524..25743,25825..25997,26081..26203)
4523452..4678299
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 13:28 @603
por Leo_Gutierrez
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. my $variable = 'join(53022..53183,53484..53624,53703..54494)
  5.  
  6. compl(23519..24451,24542..24655,24752..24962,25041..25435,
  7. 25524..25743,25825..25997,26081..26203,26292..26452,
  8. 26543..26776,26862..27012,27099..27281,27372..27533,
  9. 27618..27713,27803..28431,28708..28805,28890..29080,
  10. 29160..30065,30147..30311,30410..30816,30902..31079)
  11.  
  12. 4523452..4678299';
  13. $variable =~ s/\n//g;
  14. print $variable;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 13:34 @607
por principiante
Pero de esa forma obtendría

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
join(53022..53183,53484..53624,53703..54494)compl(23519..24451,24542..24655,24752..24962,...
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


y no
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
join(53022..53183,53484..53624,53703..54494)
compl(23519..24451,24542..24655,24752..24962,25041..25435,25524..25743,25825..25997,26081..26203)
4523452..4678299
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


que es lo que quiero obtener

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 13:35 @608
por principiante
Es decir de esa forma eliminas todos los saltos de línea y yo solo quieto eliminar los saltos de línea de cada apartado.

Re: Eliminar lineas en blanco

NotaPublicado: 2009-08-21 13:46 @615
por netsoul
Disculpa principiante, ¿Podrías colocar algún código que hayas intentado? ;)

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $variable =~ s/(.)\s/$1/g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


No sé si funciona, pero al menos podría darse.
Todos los horarios son UTC - 6 horas [ DST ]
Página 1 de 2
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/