• Publicidad

Eliminar líneas en blanco

Perl aplicado a la bioinformática

Eliminar líneas en blanco

Notapor principiante » 2009-08-21 12:01 @542

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

?
Última edición por explorer el 2009-08-22 04:20 @222, editado 2 veces en total
Razón: No es 'siquiente', es 'siguiente'
principiante
Perlero nuevo
Perlero nuevo
 
Mensajes: 27
Registrado: 2009-08-16 12:11 @549

Publicidad

Re: Eliminar lineas en blanco

Notapor Leo_Gutierrez » 2009-08-21 12:13 @551

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
Leo_Gutierrez
Perlero nuevo
Perlero nuevo
 
Mensajes: 91
Registrado: 2008-08-20 23:38 @026

Re: Eliminar lineas en blanco

Notapor netsoul » 2009-08-21 12:17 @553

RockoX, ¡Eres más veloz que Supermán! :!:
With Perl
Imagination is more important than knowledge. Albert Einstein.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Re: Eliminar lineas en blanco

Notapor Leo_Gutierrez » 2009-08-21 12:23 @558

netsoul escribiste:RockoX, ¡Eres más veloz que superman! :!:


Bueno fuera. :)
Leo_Gutierrez
Perlero nuevo
Perlero nuevo
 
Mensajes: 91
Registrado: 2008-08-20 23:38 @026

Re: Eliminar lineas en blanco

Notapor netsoul » 2009-08-21 12:58 @581

: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
With Perl
Imagination is more important than knowledge. Albert Einstein.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Re: Eliminar lineas en blanco

Notapor principiante » 2009-08-21 13:18 @596

¿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
principiante
Perlero nuevo
Perlero nuevo
 
Mensajes: 27
Registrado: 2009-08-16 12:11 @549

Re: Eliminar lineas en blanco

Notapor Leo_Gutierrez » 2009-08-21 13:28 @603

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
Leo_Gutierrez
Perlero nuevo
Perlero nuevo
 
Mensajes: 91
Registrado: 2008-08-20 23:38 @026

Re: Eliminar lineas en blanco

Notapor principiante » 2009-08-21 13:34 @607

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
Última edición por explorer el 2009-08-22 05:22 @265, editado 1 vez en total
Razón: Recorte de línea larga
principiante
Perlero nuevo
Perlero nuevo
 
Mensajes: 27
Registrado: 2009-08-16 12:11 @549

Re: Eliminar lineas en blanco

Notapor principiante » 2009-08-21 13:35 @608

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.
Última edición por explorer el 2009-08-21 15:58 @707, editado 1 vez en total
Razón: Ortografía
principiante
Perlero nuevo
Perlero nuevo
 
Mensajes: 27
Registrado: 2009-08-16 12:11 @549

Re: Eliminar lineas en blanco

Notapor netsoul » 2009-08-21 13:46 @615

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.
With Perl
Imagination is more important than knowledge. Albert Einstein.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Siguiente

Volver a Bioinformática

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados