使用perl设置环境变量

Question

我正在尝试使用Perl设置环境变量.它应该在外部(在当前shell中)将此变量导出到脚本中.

我试过了:

`setenv X1 /p/fsd`

system("setenv X1 /p/fsd") == 0 or die "failed:$?"

system command "setenv X1 /p/fsd" failed: -1

$ENV{"X1"} = "/p/fsd"; 

似乎没有什么工作.

如果重要我正在使用TCSH.

Answer 1

$ENV{"X1"} = "/p/fsd"; 

是正确的方法.

测试perlconsole:

Perl> $ENV{X1} = "/p/fsd";
/p/fsd

Perl> system('echo $X1');
/p/fsd
0

注意

• 需要使用单引号(或反斜杠)echo $X1来防止对其perl进行插值.
• 你不能改变父shell的ENV,参见http://www.perlmonks.org/?node_id=684685

Answer 2

了解如何设置环境变量同样重要的是如何删除它：

delete $ENV{"X1"};

这将删除 perl 进程和任何子进程的环境变量。但是仍然会为父进程设置环境变量。