perl - 使用 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