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:
Using perl Syntax Highlighting
open(F,"<datos.txt");
my $newTexto = '';
while(my $texto = <F>){
my @array = split(//,$texto);
if(scalar (@array) > 1){
while($array[$#array] =~ m/\n/){
pop(@array);
}
foreach(@array){
$newTexto .= $_;
}
$newTexto .= "\n";
}
}
close(F);
print $newTexto;
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
Using text Syntax Highlighting
Ejemplo = a superior
Segundo comentario que se da en la relación
Seguimiento a contextos
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Aquí la cuestión es que tengo espacios que separan las líneas de texto.
Programa:
Using perl Syntax Highlighting
#!bin/perl
open( UNO, "mate.txt" ) || die "No fue posible abrir mate.txt\n";
open( DOS, ">calculo.txt" ) || die "No fue posible abrir calco.txt\n";
my $newTexto = '';
while(my $texto = <UNO>){
my @array = split(//,$texto);
if(scalar (@array) > 1){
while($array[$#array] =~ m/\n/){
pop(@array);
}
foreach(@array){
$newTexto .= $_;
}
$newTexto .= "\n";
}
}
close(UNO);
print DOS "$newTexto";
close (DOS);
# Esto nos quita el primer espacio del archivo
###########################################################################################
open( DOS, "calculo.txt" ) || die "No fue posible abrir calculo.txt\n";
open( TRES, ">fisica.txt" ) || die "No fue posible abrir fisica.txt\n";
while ( $linea = <TRES> )
{
chomp $linea;
@arrip = "" ;
@Int = "" ;
@varest = "" ;
%hInt = "" ;
@ruteador = split '=', $linea;
print TRES '$linea';
close(DOS);
close(TRES);
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
Al final nuestro archivo queda:
Using text Syntax Highlighting
Ejemplo = a superior
Segundo comentario que se da en la relación
Seguimiento a contextos
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
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.