regex - 关于 perl 中的 chdir，我如何回到上一个目录

Question

DIR1:a/b/c/d
DIR2:e/f/g/h

现在我在 DIR1 和 chdir 中执行一个 Perl 脚本到 DIR2(使用 DIR2 中的数据)，在脚本执行后我想回到 DIR1。它是默认的，如果不是，那么应该使用什么命令。

提前致谢。

Answer 1

您应该使用 Cwd 在你之前chdir第一次....

use Cwd;

# get and save current working directory
my $dir = getcwd;

chdir("/some/path");
# do stuff

# now get back to original dir
chdir($dir);