Foro - Perl en Español

Hola, amigos del foro, me pasaron un script en que hay una línea que no entiendo del todo y es la siguiente:



Lo que no entiendo es qué significa el punto al final.
Cualquier ayuda, muchas gracias de antemano.

Ese comando es para mover un archivo. En este caso el que describe la variable $ctl, y el punto al final no estoy muy seguro pero creo que lo mueve a la ruta donde estás actualmente aunque como te digo no estoy muy seguro.

Esperemos otra respuesta más segura.

lis escribiste:Hola amigos del foro, me pasaron un script en que hay una línea que no entiendo del todo y es la siguiente:

system"(mv ../$ctl .)"

Lo que no entiendo es qué significa el punto al final.
Cualquier ayuda, muchas gracias de antemano.

Esto no tiene nada que ver con Perl

Lo que haces es mover (mv) un archivo que está en un nivel superior (..) al nivel en que te encuentras (.). Lo hace con un comando shell del sistema (system), aunque lo mismo y seguramente más rápido (al no tener que crear otro proceso) lo puedes hacer con el módulo File::Copy que si no me equivoco es parte de la distribución oficial de Perl.

En efecto, la línea copia un fichero que está en un nivel superior al nivel en que estamos.

El módulo File::Copy realiza muchas comprobaciones antes de realizar el movimiento, que, primero, lo intenta con un rename(), y si falla, lo intenta con un copy() seguido de un utime() (copiar atributos) y de un unlink() (borrado).

¿Esto tarda más que ejecutar el proceso externo? Pues yo creo que depende, porque el proceso mv va a realizar los mismos pasos (renombrado o copia) pero con menos comprobaciones, ya que el proceso sabe en qué sistema operativo se encuentra y qué reglas puede aplicar.

También depende del número de veces que por unidad de tiempo se ejecute esta línea. Desde luego, es muy costoso crear nuevos procesos externos al nuestro para realizar otras operaciones. Bueno... "era" muy costoso, ya que las máquinas y sistemas operativos actuales son tan rápidos y eficientes que ese costo se ha reducido mucho.

Habría que hacer un benchmark para comprobar qué es mejor.

Desde luego, el hacerlo en Perl tiene una gran ventaja: es independiente del sistema operativo, por lo que, en el futuro, podríamos instalar nuestro programa en otra máquina distinta. Y, también, no tenemos que preocuparnos de saber si el comando mv está disponible en el sistema o no.