Perl更改调用者的工作目录

Question

我想编写一个perl脚本，将其工作目录更改为其他位置，执行某些操作，然后在我从shell调用该目录后将该目录留在该目录中。 chdir只做第一部分。如何更改呼叫者的工作目录？

Answer 1

你想做什么是不可能的。最接近的做法是编写一些bash，然后在调用shell中发送它，而不是运行它。软件不能影响调用它的shell。

Answer 2

你可以做followng模拟效果：

1. 打电话给你的脚本EXEC
2. 在你的脚本，而不是退出，exec的一个新的外壳。

Answer 3

将您的perl脚本包装在shell脚本中，在执行perl脚本之前从bash脚本中更改目录并获取脚本。

所以不是一个Perl脚本，如：

#!/usr/bin/perl 
# my_program.pl ... 
chdir "/my/directory"; 
... 

使用，比方说，一个bash脚本，如：

#!/usr/bin/bash 
cd /my/directory 
perl my_program.pl "$@" 

和来源，当你把它叫做脚本，即

$ source my_bash.sh 

或

$ . my_bash.sh 

（现在你可以使用的定界符，并把它所有到一个脚本：

#!/usr/bin/bash 
cd /my/directory 
perl <<EOF 
... include your perl script here ... 
EOF 

但我不认为你可以使用@ARGV变量）

Answer 4

这是可能。

但是，你必须打开在读/写模式/dev/mem设备之一，在存储器中找到合适的位置存储父进程的[dev,ino]对为其cwd，并用新捅它。

即使你管理，我怀疑你可以在第二天早上看到自己在镜子里。我确定知道我永远不会。 :)尽管如此，我的同事们脸上的神态完全是值得的。我使用这种方法将shell的提示从一个命令更改为下一个命令。这只是珍贵的。直到我告诉他们我是如何做到的，他们根本弄不明白。

这也不被推荐。 :)