如何将环境设置导入到我的 Perl 程序中？

Question

我有一个脚本，其内容只是导出 Linux 中的一个变量。

export LD_LIBRARY_PATH=....

我想在我的 Perl 脚本中运行此脚本，以便运行我的 Perl 脚本的人都将设置他们的 LD_LIBRARY_PATH 。我可以在 Perl 脚本的开头执行此操作吗：

#!/usr/bin/perl -w

system(". /myfolder1/myfolder2/myScript.sh");

Answer 1

#!/bin/sh
. /myfolder1/myfolder2/myScript.sh
exec perl -wxS "$0" "$@"
#!/usr/bin/perl -w
# .. the rest of your script as normal

当您运行它时，它将首先由 /bin/sh 执行，它能够将 myScript.sh 加载到本地环境中。 sh 然后 execs Perl，它被告知从下一行继续。

Answer 2

这行不通。要更改 Perl 脚本内的环境（以及更改将传递到从 Perl 脚本内运行的命令的环境），请更改 %ENV 变量。

$ENV{"LD_LIBRARY_PATH"} = ... ;

Answer 3

这行不通。子 shell 无法操纵父进程的环境。

但是你可以让你的脚本回显你想要设置为 LD_LIBRARY_PATH 的字符串，然后在你的 Perl 脚本中你可以做这样的事情：

$ENV{LD_LIBRARY_PATH} = `path/to/your/script.sh`;

当然，一些错误检查也可能是一个好主意。

Answer 4

不会。您对孩子的环境改变不会影响父母。这意味着运行脚本不会影响 perl。 Perl 也不会影响调用它的 shell。您可以通过更改 特殊变量 %ENV。如果该脚本中进行了某种不可重现的计算，则脚本可能应该只是echo 设置，而 Perl 可以在 STDOUT 上获取该设置并使用它。

我在 Perl 脚本中{更改了目录，修改了我的环境}。为什么当我退出脚本时更改就消失了？如何让我的更改可见？

Unix 从最严格的意义上来说，这是不可能的——脚本执行
作为与 shell 不同的进程
它是从开始的。更改为
过程并没有体现在其
父级，仅在其自己的子级中
更改后创建。

Answer 5

几年前我遇到了类似的问题，并制作了一个小模块， Env::Sourced< /a>，这应该可以解决问题。

 use Env::Sourced qw(/myfolder1/myfolder2/myScript.sh);

...

Answer 6

另一种选择（除了直接在 Perl 的 %ENV 中进行更改之外）是进行所需 Perl 模块的更改，这样您就可以说：

use MyEnvironment;

并让它在所有脚本中修改您的环境。这将使事后进行更改变得简单，而无需编辑每个脚本。

模块本身很简单，如下所示：

package MyEnvironment;

$ENV{LD_LIBRARY_PATH} .= ":/some/path/you/want/appended";
# Any other changes you want here.

1;

Answer 7

那是行不通的。一个（令人不愉快的）替代方案可能是用 shell 脚本替换 /usr/bin/perl，该脚本首先执行您的脚本，然后执行 perl 可执行文件。

Answer 8

这不能以您尝试的方式完成。

它要么需要一个包装器 shell 脚本来设置 LD_LIBRARY_PATH，然后调用 Perl 脚本，要么执行该脚本的任何用户都需要首先正确设置 LD_LIBRARY_PATH。

如果选择后者，则可以通过编辑 /etc/profile 和 /etc/cshrc （适用于 ksh、sh、bash、csh 和 tcsh）shell 进行全局管理。然后，您可以在脚本中测试 LD_LIBRARY_PATH 的值，如果未设置/设置不正确，则向用户打印友好消息。或者，个人用户可以在其本地 .profile/.cshrc 文件中进行设置。

注意：您尚未提供有关可能运行此程序的环境或用户的任何信息，因此用户也有可能将 LD_LIBRARY_PATH 设置为他们需要的内容。如果您在脚本中检查 LD_LIBRARY_PATH 是否有“良好”值，请记住可能已指定多个路径，因此您需要正确解析此环境变量。

Answer 9

如果您可以在 Perl 脚本中找到正确的位置，则可以像我的示例一样工作：

$ENV{"LD_LIBRARY_PATH"} = "/oracle/product/10g/lib";

并且它不需要我调用另一个脚本来设置环境变量。

Answer 10

Env::Modify 模块至少解决了这个问题对于 POSIX-y 平台：

use Env::Modify 'source';
source("/myfolder1/myfolder2/myScript.sh");
... environment settings from myScript.sh are now available to Perl ...