perl chdir 不工作，不改变目录

Question

我完整的 perl 脚本是

chdir ("/etc" or die "cannot change: $!\n");
print  "\nCurrent Directory is $ENV{PWD} \n";

我得到了输出(不像预期的那样)

bash-3.2$ perl test.pl 

当前目录是 /home
附言 /home是我执行 test.pl 的地方

Answer 1

你应该搬家 or die chdir(...) 之外， IE。:

chdir("/etc") or die "cannot change: $!\n";

用你目前所拥有的，表达式 "/etc" or die "cannot change: $!\n"首先被评估。
它的结果是 "/etc"和 die()永远不会被执行。 or die()应该“应用于”chdir()调用，而不是它的论点。

做 print(cwd);打印当前工作目录。别忘了use Cwd;

use Cwd;

chdir("/etc") or die "cannot change: $!\n";
print(cwd);