关于perl中的chdir,我该如何返回上一个目录

Question

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

现在我在DIR1中执行一个Perl脚本,在DIR2中执行chdir(在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);