通过 Perl 脚本设置环境变量 [重复]

Question

我正在尝试通过 Perl 脚本以下列方式设置环境变量 LD_LIBRARY_PATH：

我在/root下创建了.profile

.profile 有一个export 命令说：

export LD_LIBRARY_PATH=/

我的 Perl 脚本是 test.pl，它有：

#!/usr/bin/perl
system(". /root/.profile");

当我执行./test.pl 时，LD_LIBRARY_PATH 不会改变。

我做错了什么？

Answer 1

现在可以使用Env::Modify module：

use Env::Modify 'source';
source("/root/.profile");
... env settings of .profile are now available to Perl ...

Answer 2

system 启动一个新进程，并且更改那里的环境不会影响脚本进程中的环境（通常——通常有依赖于操作系统的方法来更改其他进程的环境）。

perl 程序中的环境与%ENV 相关联，这有点像（实际上不是）绑定到环境的散列：改变它会改变环境。因此：

$ENV{LD_LIBRARY_PATH} = '/';

Answer 3

要更改 Perl 脚本中的环境，请分配给 %ENV 哈希：

$ENV{'LD_LIBRARY_PATH'} = '/';

如果你想编写一个被 shell 用来改变其环境的程序，通常的做法是让脚本将 shell 命令写入标准输出。然后，shell 使用命令替换执行此操作，并使用 eval 执行生成的命令：

Perl 脚本：

#!/usr/bin/perl
print 'LD_LIBRARY_PATH=\n';

Shell 脚本：

eval "$(/path/to/perlscript)"

有关这样工作的命令示例，请参阅tset 和ssh-agent。

Answer 4

你做不到。

这是来自the Perl FAQ：

从最严格的意义上说，它是无法完成的——脚本作为与它启动时所在的 shell 不同的进程执行。对流程的更改不会反映在其父进程中 - 只会反映在更改后创建的任何子进程中。有一种 shell 魔法可以让你通过在你的 shell 中对脚本的输出进行 eval() 来伪造它；详情请查看 comp.unix.questions 常见问题解答。

Answer 5

您当前的脚本甚至不会更改 Perl 脚本本身的环境变量。相反，它调用一个 shell 作为一个子进程。该 shell 进程执行 . /root/.profile，它仅在该 shell 进程中更新 $LD_LIBRARY_PATH。

您可以通过更新%ENV 来更改 Perl 脚本中的环境变量（更准确地说，是在运行 Perl 脚本的进程中）：

$ENV{LD_LIBRARY_PATH} = '/'; # or some more reasonable value

正如perldoc -v %ENV 所说：

%ENV 哈希%ENV 包含您当前的环境。在“ENV”中设置一个值会更改您随后“fork()”关闭的任何子进程的环境。

但这可能仍然无法满足您的要求；它不会（也不能）影响调用 Perl 脚本（您的交互式 shell）的进程的环境，只会影响 Perl 进程本身及其调用的任何东西。

我假设您想在当前的交互式 shell 进程中更新 $LD_LIBRARY_PATH。为此，您可以让您的 Perl 脚本打印一个 shell 命令，它将更新 $LD_LIBRARY_PATH。然后，您可以执行它，然后评估它的输出，而不是简单地运行您的 Perl 脚本。例如：

$ cat env.pl
#!/usr/bin/perl

use strict;
use warnings;

print "export LD_LIBRARY_PATH=/\n";
$ ./env.pl          # just prints the command without executing it
export LD_LIBRARY_PATH=/
$ eval $(./env.pl)  # executes the command in the current shell
$ echo $LD_LIBRARY_PATH 
/
$ 

这假设您当前的 shell 是 bash 或类似的。

另一个选项：修改%ENV 后，您的 Perl 脚本可以调用另一个命令，甚至是一个新的交互式 shell。新进程将从 Perl 脚本继承其环境。不过，这可能有点麻烦。例如，如果新进程是交互式 shell，它不会从父 shell 继承未导出变量或历史记录。

（一个注释，与您的问题没有直接关系：您与/root/.profile 搞混的事实意味着您正在以root（超级用户）的身份做事。这可能很危险。使用root帐户（通过登录或通过 sudo 仅用于实际需要 root 权限的内容。对于其他任何事情，请使用个人用户帐户。