Foro - Perl en Español

Saludos. Mi pregunta es muy simple. Tengo un archivo, archivo.txt, con información de esta forma:

Y quiero tener algo así, donde todos los espacios vacíos se eliminen:


¿Alguna idea?

Saludos.

Es muy sencillo: te vale con reducir todas las secuencias de caracteres de fin de línea, a uno solo:

$texto =~ s/\n\n+/\n/g;

¿¿¿ Algo así ???

#!/usr/local/bin/perl
################## abre la lista
open( UNO, "matematicas.txt" ) || die "No fue posible abrir matemáticas.txt\n";
open( DOS, ">calculo.txt" ) || die "No fue posible abrir calculo.txt\n";
while ($texto = <UNO>)
{
$texto =~ s/\n\n+/\n/g;
print "$texto";
print DOS "$texto\n";
}
close UNO;
close DOS;
###########################################################

Porque sigue haciendo lo mismo no quita los renglones en blanco.

Cuando haces el while(), separa las líneas del texto... así que uno de los valores de la variable $texto, debe tener solo un salto de línea \n...

entonces,



o algo por el estilo.
¡¡¡Saludos!!!

Sin comentarios xD...

Mmmm, interesante, pero sigue igual: no hace nada.

Y creo que esta línea está mal:
$newTexto .= $texto;

Gracias, Panterozo, tu programa hace una parte de lo que necesitaba: quita el primer espacio que tenía en mi archivo pero las demás líneas siguen igual, así que lo solucioné de la siguiente forma.

panterozo escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. open(F,"<datos.txt");
2. my $newTexto = '';
3. while(my $texto = <F>){
4.         my @array = split(//,$texto);
5.         if(scalar (@array) > 1){
6.                 while($array[$#array] =~ m/\n/){
7.                         pop(@array);
8.                 }
9.  
10.                 foreach(@array){
11.                         $newTexto .= $_;
12.                 }
13.                 $newTexto .= "\n";
14.         }
15. }
16. close(F);
17. print $newTexto;
18. exit;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Sin comentarios xD...

Código de cómo lo solucioné

Tengo un archivo con líneas como
Aquí la cuestión es que tengo espacios que separan las líneas de texto.

Programa:

Al final nuestro archivo queda:


Y todos felices

Sé que es un mega chorro. Si alguien puede resumirlo, adelante
Por el momento así voy a usarlo pero después lo trato de hacer más chico.


Saludos.

panterozo escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. open(F,"<datos.txt");
2. my $newTexto = '';
3. while(my $texto = <F>){
4.         my @array = split(//,$texto);
5.         if(scalar (@array) > 1){
6.                 while($array[$#array] =~ m/\n/){
7.                         pop(@array);
8.                 }
9.  
10.                 foreach(@array){
11.                         $newTexto .= $_;
12.                 }
13.                 $newTexto .= "\n";
14.         }
15. }
16. close(F);
17. print $newTexto;
18. exit;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Sin comentarios xD...

Esto a mi me funciona correctamente, tomando el archivo inicial

Therion777 escribiste:Ejemplo de salida de un archivo

Para la segunda mitad del semestre

Es necesario dar por hecho la formula = 3.54 = 6.5

Todos los campos

Mi solución:

Esta es mi versión:

Y desde la línea de comandos: