Foro - Perl en Español

Buenas

¿Cómo sería el código en Perl que haga lo siguiente?

Lo ejecutas en un directorio en el que hay varios archivos comprimidos .rar.

El script ejecuta unrar (o similar) que extrae cada archivo en un directorio con su mismo nombre y si dentro de ese directorio hay un archivo readme.txt lo renombra con el mismo nombre de antes.

Por ejemplo, si lo hiciésemos a mano:

unrar x nombre1.rar
cd nombre1
ren readme.txt nombre1.txt (pero sólo si existe)
y sigue descomprimiendo...

Y que el unrar lo busque en el path y en el mismo directorio.

Suposiciones:
* estamos en el mismo directorio donde están los ficheros rar a extraer
* la ruta al ejecutable unrar está en la variable $PATH, por lo que Perl podrá ejecutarlo directamente

Proceso (no probado):

Gracias.

Lo probaré.

Es que hace tiempo que quería aprender Perl para no hacer las cosas cútremente con el batch de DOS, y porque es más potente. Me he empezado a leer un manual pero tenía prisa por ir a ejemplos concretos.

¿Qué diferencia hay entre ejecutar el comando con system(...) y ejecutarlo con `...`?
¿Y qué diferencia hay entre usar rename() y usar system("ren...")?

Saludos

Ejecutar un comando con las comillas invertidas es lo mismo que hacerlo con el operador qx(), que después de hacer una interpretación de la cadena que se le pasa como argumento, lo ejecuta en el sistema bajo la shell predeterminada, y la salida del comando es devuelta a Perl.

En cambio, system() ejecuta el comando y solo regresa el valor de estado, el resultado de la operación.

Las diferencias entre usar rename() y el del sistema, son:

* Al usar system("ren ..."), estamos lanzando un nuevo proceso en el sistema (el entorno de línea de órdenes), que a su vez lanzará el ejecutable ren (no siempre, porque en algunos sistemas viene integrado en el entorno de línea de órdenes). El problema que puede ocurrir también es que quieras un día ejecutar este programa en otra máquina, y en ella no tenga instalado ningún comando llamado ren, por lo que tendrás que editar el programa y poner ahí el nombre del comando adecuado (en Linux, sería mv).

* En cambio, con rename(), Perl no tiene que crear un nuevo proceso, sino que llamaría a la función del sistema que se encarga de cambiar de nombre un fichero en el sistema de ficheros. Y además, es una ventaja porque te independiza de cómo se llame el comando de renombrado del sistema (la desventaja comentada antes con el system("ren ...")).

Gracias.

Muy aclaratorio.

Lo único que no me ha quedado claro es la línea

my($nombre) = $fichero =~ /^(.+)\.rar$/i;

A mi entender se evalúa primero la parte de la derecha, por lo de la precedencia de los operadores. Es decir, se comprueba si $fichero contiene la cadena de texto del rar.

Y lo que me parece extraño es... ¿la variable $nombre almacenará un valor booleano en vez del nombre del fichero?

Saludos

Lo que estás viendo es una asignación, así que primero se evalúa la expresión regular sobre la variable $fichero, y el resultado se deja en $nombre. Hasta ahí, lo has entendido.

Ahora bien... una expresión regular se puede ejecutar en contexto escalar o en contexto lista.

Si lo ejecutamos en contexto escalar, lo que devuelve es, efectivamente, un valor booleano indicando si se encontró el patrón o no. Y en contexto lista, nos devolverá la lista de valores que han sido capturados por los paréntesis de captura, dentro de la expresión regular. En nuestro caso, sí que hay esos paréntesis: (.+), que capturan el nombre del fichero, sin la extensión rar.

En Perl, siempre hay que prestar atención al contexto en que estamos ejecutando las sentencias.

Examen: ¿cuál es la salida del siguiente programa?


Antes de ejecutarlo, intenta resolverlo mentalmente.

Fíjate que las líneas son las mismas, pero la segunda tiene un par de paréntesis en el lado de la asignación. Son justamente, esos paréntesis, los que indican que estamos ejecutando la sentencia en contexto lista.

En Perl, algunas cosas son muy poco importantes, como el espacio en blanco, pero en otras, hay que prestar atención a los detalles.

Más información en perlop, en la sección Regexp Quote-Like Operators, subsección Matching in list context.

Lo he ejecutado para ver si el primer corchete daba 1 o true y ya está claro.

[1][fichero]


saludos

Bienvenido a los foros de Perl en Español, zlatan24.

Gracias por tu aporte, zlatan24, aunque el hilo trata de cómo leer, descomprimir y manejar los nombres de los ficheros rar, desde Perl.