Foro - Perl en Español

Publicado: **2005-04-25 07:43 @363**

Estoy aprendiendo Perl y uno de los ejercicios que estoy haciendo es sustituir todas las palabras de un fichero (por ejemplo todas las "este"). Hago esto

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!perl
 
open (FICH, "+>Este.txt") || die "No se pudo abrir el archivo\n";;
while (my $linea = <FICH>)
{
        my $cont1 = $linea =~ s/este/aquel/g;
        print FICH $linea;
        $cont2 = $cont2 + $cont1;
}
close (FICH);
print "Se han sustituido $cont2 veces la palabra este por aquel";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero el fichero aparece vacío. Creo que es porque no lo abro correctamente, porque las sustituciones en la variable $linea sí las hace bien, además si no pongo la línea de "print FICH $linea;" me cuenta bien las sustituciones pero cuando la pongo la variable $cont2 no tiene valor (lo de $cont1 y $cont2 es porque me pide también cuántas veces he hecho la sustitución). ¿Acaso una vez hago print en el fichero se borra el contenido?
¿Alguien me puede ayudar?
-GRACIAS-

Publicado: **2005-04-25 08:52 @411**

No puedes hacer las dos cosas al mismo tiempo, debes hacer primero hacer una lectura del fichero y cargar todo en un array...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(FICHERO,"<ficheroi.txt");
my @lineas = <FICHERO>;
close FICHERO;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora modificamos el array

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach my $linea (@lineas){
...
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y ahora abrimos el fichero borrando todo y le escribimos el nuevo contenido

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(FICH,">archivo.txt");
foreach my $linea (@lineas){
    print FICH "$linea\n";
}
close(FICH);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ Se entiende ? Espero que te sirva.

Saludos

Publicado: **2005-07-24 19:56 @872**

ansi_anso escribiste:Estoy aprendiendo Perl y uno de los ejercicios que estoy haciendo es sustituir todas las palabras de un fichero (por ejemplo todas las "este").

Cuando tengas más experiencia, prueba a usar Perl directamente desde la línea de comandos para hacer esa tarea.

Por ejemplo, para cambiar todas las apariciones de la palabras este por aquel, se puede hacer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl-pi-e's/este/aquel/g' fichero.txtColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si usas Windows, cambia las ' por ".

Foro - Perl en Español

Sustituciones en ficheros

Sustituciones en ficheros

Re: Sustituciones en ficheros