Foro - Perl en Español

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):

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 ...")).

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.

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.