Foro - Perl en Español

Hola,

Estoy un poco perdido con las entradas y salidas en la aplicación de scripts. Es decir, normalmente los script básicos que necesito son para editar un .txt. Entonces, suelo empezar el script:

open F, shift;
while (<F>) {bla bla bla...
close F;

Y para aplicarlo guardo en una misma carpeta el script .pl y el archivo .txt que quiero editar. Después abro la consola de comandos, me ubico en esa carpeta y aplico el script:

perl nombre_del_script.pl input.txt > output.txt

Bien, mi problema es que ahora necesito aplicar un script que edite varios archivos .txt guardados en una misma carpeta y no sé cómo empezar el script ni qué debo teclear en la consola de comandos.

¿Alguien me puede explicar brevemente (o sugerirme dónde encontrar información al respecto) la lógica de este tipo de operaciones? Es decir, cómo empezar los scripts y cómo aplicarlos en la consola de comandos en función de la entrada y salida que uno quiera, y en función de si se va a aplicar a un solo archivo o a varios.

Gracias.

Se puede hacer de varias formas.

De las que se me ocurren ahora:

• pasar al programa el nombre de la carpeta. El programa lo lee, entra en la carpeta, y procesa todos los txt que encuentre
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using perl Syntax Highlighting

  1. my $carpeta = $ARGV[0];
  2. chdir $carpeta or die "ERROR: no puedo entrar en $carpeta: $!\n";
  3. for my $archivo (<*.txt>) {
  4.     print "Procesando archivo $archivo...\n";
  5.     ...;
  6. }

  Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
• pasar al programa todos los archivos que queremos procesar. Ejecutamos el programa así: programa.pl carpeta/*.txt
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using perl Syntax Highlighting

  1. for my $archivo (@ARGV) {
  2.     print "Procesando archivo $archivo...\n";
  3.     ...;
  4. }

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
• si la carpeta siempre es la misma, podemos entrar en ella y procesar los archivos que estén dentro
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using perl Syntax Highlighting

  1. chdir 'carpeta' or die "ERROR: no puedo entrar en carpeta: $!\n";
  2. for my $archivo (<*.txt>) {
  3.     print "Procesando archivo $archivo...\n";
  4.     ...;
  5. }

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
  o así:
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using perl Syntax Highlighting

  1. for my $archivo (<carpeta/*.txt>) {
  2.     print "Procesando archivo $archivo...\n";
  3.     ...;
  4. }

  Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Naturalmente, si en el código ponemos la ruta absoluta (completa) a la carpeta, entonces podemos ejecutar el programa desde cualquier otro directorio del sistema.

Muchas gracias por tu explicación "explorer". Solo una última duda. No sé cómo enlazar tu plantilla con los datos específicos que yo quiero insertar. Por ejemplo, imaginemos que escojo tu primera opción y que quiero sustituir en mis textos todos los casos de "blue" por "red". Yo he intentado lo siguiente:

1. Coloco todos mis archivos .txt en una carpeta llamada "carpeta"
2. Coloco mi script ("cambiarcolores.pl") en el mismo directorio que está la carpeta llamada "carpeta"
3. Abro la consola de comandos y me sitúo en el directorio donde tengo el script.
4. Ejecuto lo siguiente: perl cambiarcolores.pl carpeta
5. El script sería el siguiente:



¿Qué estoy haciendo mal? (pues no se aplican los cambios a mis .txt)

Pues hay varios errores:

• Usas shift() para obtener el nombre del archivo a partir de @ARGV, pero resulta que ahí no está, sino en la variable $archivo, que es actualizada en cada vuelta del bucle for()
• Abres el archivo y lo vas modificando línea a línea, y sacando por la pantalla, pero no le has dicho a Perl dónde ni con qué nombre guardarlo
• El close() del archivo abierto está fuera del bucle for

Para lo que quieres hacer, te recomiendo el uso de Tie::File (Ejemplo de uso, en inglés)

Gracias de nuevo por tus comentarios, explorer. Lamentablemente, se ve que no tengo los conocimientos básicos para poder aplicar tus sugerencias. He intentado esto sin éxito (posiblemente porque me falta aplicar tu segunda sugerencia, que no sé cómo hacer):

my $carpeta = $ARGV[0];
chdir $carpeta or die "ERROR: no puedo entrar en $carpeta: $!\n";
for my $archivo (<*.txt>) {
print "Procesando archivo $archivo...\n";
open F, $archivo;
while(<F>) {
s/blue/red/g;
close F;
}
}

También lo he intentado con la opción Tie:File que me comentas, pero en este caso no sé cómo aplicar el ejemplo del enlace a mi caso particular. Mi intento sin éxito...

tie my @file, 'Tie::File', $file;
@file = grep !$seen{$_}++,
s/blue/red/;
untie @file;

Como ves, estoy bastante perdido

Una forma simple:
Otra forma, usando Tie::File (no probado, sacado de la página de manual de Tie::File):

Tomo nota, explorer. Mil gracias por tu respuesta, por tus aclaraciones y por tu paciencia.