Foro - Perl en Español

Hola buenas ... Tengo un problema.

Por ejemplo me encuentro en el directorio: /home/later/Desktop , donde también se encuentra el script en perl. Donde hace esta función:

system ("cd /");

Ejecuto el script ... y todavía me sigo encontrando en /home/later/Desktop , y yo lo que quiero es que me mueva al directorio raiz "/".

Saludos!.

No es cosa de Perl, es cosa del entorno de trabajo.

Todos los programas tienen: un directorio donde residen físicamente, un directorio de ejecución y un directorio donde se ejecutan (el directorio de trabajo).

Cuando arrancas un proceso, lo haces desde el directorio de ejecución. El sistema lo lee desde el directorio donde reside y le asigna como directorio de trabajo el de ejecución (normalmente). Lo puedes comprobar con



Cuando el proceso termina, el sistema devuelve el control al shell de comandos, que recupera SU directorio de trabajo (que es de donde partiste).

Así que ninguna de estas combinaciones cambiará el directorio de trabajo del shell que llama a nuestro programa:



Esto está también comentado en el perlfaq8, I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible?.

Entonces tal vez puedo hacerlo desde Bash. ¿Se puede incluir código Bash en un script de Perl?.

Sí, pero no conseguirás nada. Al final de la ejecución de Perl volverá adonde estabas:

¿No puedes darnos más detalles de lo que quieres hacer?

Solamente quiero saber cómo hacer eso. Ejecutar el comando de cambio de directorio, pero que una vez que finalice el script permanezca en el directorio que se seleccionó dentro del script.

Tienes más información en el punto 2.8 del Unix - Frequently Asked Questions.

Por ejemplo, si tenemos este script:


y lo ejecutamos de forma normal, no pasará nada:

Código: Seleccionar todo

explorer@portatil:~> bin/ir_a_temporal.sh
explorer@portatil:~>

pero, si en lugar de ejecutarlo en un nuevo shell, lo interpretamos en nuestro propio shell, sí que funciona:

Código: Seleccionar todo

explorer@portatil:~> . bin/ir_a_temporal.sh
explorer@portatil:/tmp>

Como dice el FAQ, casi es mejor hacerlo con un alias.

Según la documentación de perlfaq8, habría que hacer algo así, en Perl:

Código: Seleccionar todo

explorer@portatil:~> cat bin/ir_a_temporal.pl
#!/usr/bin/perl
print "cd /tmp\n";
explorer@portatil:~> $(bin/ir_a_temporal.pl)
explorer@portatil:/tmp>

Es decir, evaluar la salida del script Perl en el propio shell.

Gracias explorer me funcionó de esta forma: $(perl name.pl)
Pero el problema de ahora es que no me deja printear u hacer otras operaciones.



Bueno vemos que en la primera ejecución del script solo puse esto dentro de él:

#!/usr/bin/perl
print "cd /tmp\n";

Y al ejecutar de la forma $(perl name.pl), se me fue a /tmp . De momento OK!.

Pero en la segunda ejecución del scrip le añadí una linea más y se quedo así:

#!/usr/bin/perl
print "hola\n";
print "cd /tmp\n";

Pero como vemos nos devuelve:

bash: hola: command not found

Por lo que amí se me ocurrio hacer esto: print "echo hola";
Pero el resultado fue que el resto del código también se me imprimió, dándome por pantalla esto:

hola
cd /tmp


Intentaré ver que puedo hacer ... Gracias

Sería interesante saber por qué quieres hacer todo esto...