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.003 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-