Modificar diversos ficheros a la vez en un directorio
Publicado: 2014-04-14 15:51 @702
Hola, tengo una consulta: Cómo puedo modificar a la vez una palabra por otra en el nombre de unos ficheros y en su contenido.
El nombre de los ficheros tiene un patrón común, plujatempabril.htm, todos empiezan por el nombre de una población. Por ejemplo, Barcelonaplujatempabril.htm, Valenciaplujatempabril.htm... Quiero cambiar abril por mayo... en el nombre de los ficheros y en el interior de los ficheros. En el siguiente código realizo el cambio para un fichero en concreto, pero para todos ¿cómo debo hacerlo? Gracias.
Gracias otra vez.
El nombre de los ficheros tiene un patrón común, plujatempabril.htm, todos empiezan por el nombre de una población. Por ejemplo, Barcelonaplujatempabril.htm, Valenciaplujatempabril.htm... Quiero cambiar abril por mayo... en el nombre de los ficheros y en el interior de los ficheros. En el siguiente código realizo el cambio para un fichero en concreto, pero para todos ¿cómo debo hacerlo? Gracias.
Using perl Syntax Highlighting
- chdir "$ENV{HOME}/htm/prova";
- #open(LS, "ls *plujatempabril.htm") or die $!;
- #while (<*plujatempabril.>){
- my $archivo = 'olotplujatempabril';
- open my $INFILE, '<', "$archivo.htm";
- my @archivo = <$INFILE>;
- foreach (@archivo) {
- s/abril/mayo/g;
- s/Abril/Mayo/g;
- }
- #chomp $archivo[-1];
- close $INFILE;
- open my $OUTFILE, '>', "olotplujatempmayo.htm";
- print $OUTFILE @archivo;
- close $OUTFILE;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Gracias otra vez.