如何使用 Inline::python 从 perl 访问在 python 中设置的环境变量

Question

我有以下文件可以使用 perl 中的 python API AnimalsWrapper.py：

import os
class AnimalsWrapper():
    def __init__(self):
        self.name = 'dog '

    def getName(self):
        os.environ['HELLO'] = 'test'
        return self.name + '\n'

AnimalsWrapper.pm：

package AnimalsWrapper;

use parent qw(PythonBase);

package main;
use Inline Python;
our %ENV;

1;

PythonBase.pm

package PythonBase;

use Inline Python => <<"END";

import sys
sys.path.append('<pkgpath>/python3/3.6.3a/bin/python3')
sys.path.append('<pkgpath>/python3/3.6.3a/lib/python3.6/site-packages/')

END

1;

这是我用来调用 python API 的 perl 脚本。

#!/usr/bin/perl
use strict;
use warnings;

use lib '<path to the above python code>';

use AnimalsWrapper;
our %ENV;
my $obj = AnimalsWrapper->new();
print $obj->getName();
print $ENV{HELLO}; ==> here this says its uninitalized. 

通过这种方式没有 IPC，并且从 perl 调用 python API 时，它的进程相同，但环境变量仍然不可用。感谢您提供任何帮助或建议。

Answer 1

这是从 shell 到 Perl 再到 Python 的单程旅行。环境不能污染它们的包装环境，否则可能会发生可怕的事情。作为用户，如果在您的环境可以被另一个进程更改时运行命令，您将无法相信会发生什么。

您可以将环境的完全控制权委托给更高的地方，比如在您的 shell 环境中，或者您需要一个带外方法来返回属性，例如通过编写一个 shell 文件（慢！）或编写到一个套接字（复杂）。

为了理解和最大的可预测性，我更喜欢在父 shell 中进行 $ENV 控制。希望您已经考虑将 pyenv 和 virtualenv 作为管理自定义 python 安装的方法。

否则，您可以在包装器中执行将返回这些值的单行代码，例如：

my $python_path = exec('which python')

或

my $python_path = exec('python -c "import sys; print(sys.executable)"')

我的偏好是让 virtualenv 完成工作，但我怀疑你的情况并不理想。

Answer 2

运行程序时会导入环境变量。您可以在运行时修改它们，它们只会为程序的环境设置。例如，您的 bash 会话环境变量不会被修改。 https://perldoc.perl.org/5.32.0/Env.html

#!/usr/bin/perl
use strict;
use warnings;

use lib '<path to the above python code>';
use AnimalsWrapper;

$ENV{"HELLO"} = "hello_text";
my $obj = AnimalsWrapper->new();
print $obj->getName();
print $ENV{"HELLO"};