Foro - Perl en Español

Publicado: **2009-08-21 13:57 @623**

Efectivamente, netsoul, funciona correctamente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
my $variable = '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';
$variable =~ s/(.)\s/$1/g;
print $variable;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

leo@lein:~/Escritorio/pl$ perl pl.pl > lala.txt

leo@lein:~/Escritorio/pl$ cat-n lala.txt 
join(53022..53183,53484..53624,53703..54494)

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

4523452..4678299leo@lein:~/Escritorio/pl$ Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Publicado: **2009-08-21 14:23 @641**

Muchas gracias RockoX y netsoul.

Publicado: **2009-08-22 04:41 @236**

Yo también quiero dar la enhorabuena a RockoX y netsoul. Quizás este sea el primer hilo, después de casi 4 años que llevo aquí, en los que un par de "novatos" resuelven bien un problema. :wink:

Solo hubiera quedado un poquito mejor preguntarle a principiante por qué quiere hacer eso que nos pregunta. Fijaros que primero nos pide quitar las líneas en blanco y luego, cuando lo resuelve, nos pide unir antes las líneas de los párrafos.

Quizás si sabemos el objetivo final podríamos darle más pistas o incluso una mejor solución global. No digo que dar vueltas por los alrededores esté mal. De hecho, así hemos aprendido todos. Pero a veces es igual de formativo dar una solución directa.

Pero bueno, está resuelto.

Yo daré otra solución, usando otra cosa, para que veamos más posibilidades :wink:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my$CDS='join(53022..53183,

53484..53624,53703..54494)

compl(23519..24451,24542..24655,

24752..24962,25041..25435,

25524..25743,25825..25997,26081..26203)

4523452..4678299';

$CDS=~s/\n(?!\n)//g;

print"$CDS\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La expresión regular quita los retornos de carro que no estén seguidos de otro retorno de carro. Esto tiene el efecto de juntar las líneas de los párrafos, y de eliminar el primer retorno de carro de cada párrafo, por lo que si están separados por una línea en blanco, quedarán juntos.

Foro - Perl en Español

Eliminar líneas en blanco

Re: Eliminar lineas en blanco

Re: Eliminar lineas en blanco

Re: Eliminar líneas en blanco