将主脚本变量传递给Perl模块

Question

我正在编写一个由用户运行的Perl脚本，并将当前的Linux环境用作变量和其他变量。环境设置可能会发生变化，与原来的不同。

但是，我正在尝试使用自包含的Perl模块，并且需要能够访问这些变量。这样做的最佳做法是什么？当我使用Perl模块创建一个对象时，我可以传递10个变量，但这似乎过多......

由于

Answer 1

可以从全局%ENV哈希中的任何位置访问环境变量：

print $ENV{HOME};

如果您正在创建对象，它们可能具有一些属性（对象哈希，数组甚至内部对象......）只需将相关值存储到属性中，例如

my $obj = Some::Package->new( name    => 'Homer',
                              surname => 'Simpson',
                              city    => 'Springfield',
                              # ... 7 more
                            );