导入的 perl 变量导入没有值

Question

已解决：事实证明，我的问题根源在于我没有在 @EXPORT_OK 赋值中的 DEBUGVAR 前面加上 $ 以及“use config_global qw” （配置调试变量）；”线。由于它没有引发错误，所以我无法知道这是问题所在。因此，解决方法是在这些点上将正确的语法放在变量前面。

所以我试图掌握编写和导入 perl 模块的技巧。我不知道为什么做到这一点如此困难，但我在这个看似微不足道的任务上遇到了很大的麻烦。这是我的模块的内容：

package global_config;
use strict;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(DEBUGVAR);

our ($DEBUGVAR);

our $DEBUGVAR = "Hello, World!";

return 1;

这是导入模块的 perl 脚本的内容：

use strict;

use config_global qw(config, DEBUGVAR);
our %config;
our $DEBUGVAR;


print "variable imported with value: ".$DEBUGVAR;

输出是“使用值导入的变量：”，没有其他内容。我的变量似乎正在失去它的价值。我做错了什么？

编辑：经过一番摆弄并打开警告后，我将问题隔离为 $DEBUGVAR 从未真正导入。当我通过 $config_global:DEBUGVAR 使用它时，它按预期工作。现在的问题是它没有导入到命名空间中。什么给？

Answer 1

我看到几个问题：

• 您不应在 qw() 语法中使用逗号。 qw 获取每个空格分隔的短语并将其放入数组元素中。

这两者是相同的：

my @bar = qw(foo bar barfu);          #No commas!
my @bar = ("foo", "bar", "barfu");    #Commas Required

• 如果要导出变量，则需要放置 sigil< /a> 在它前面。

你有：

our @EXPORT_OK = qw(DEBUGVAR);

应该是：

our @EXPORT_OK = qw($DEBUGVAR);

• 你应该使用较新的导出器语法：

这是较新的导出器语法：

package global_config;
use strict;
use warnings;

use Exporter 'import';   #Not "require". No need for "@ISA"

our @EXPORT_OK = qw(DEBUGVAR);

our $DEBUGVAR = "Hello, World";

1;    #Makes no real difference, but you shouldn't say "return 1". Just standard.

• 最后，你在做什么导出变量？这只是一个不好的做法。
  • 现在导出任何东西都受到质疑——甚至是函数。它污染了用户的名称空间。 （至少您使用的是@EXPORT_OKAY）。查看 File::Spec。默认情况下，它的子例程使用完全限定的包名称。
  • 可通过完整包名称 $global_config::DEBUGVAR 访问相关变量，因此无需导出它。
  • 如果每个人都这样做怎么办？是的，你最后一次听说这个借口是在幼儿园，但它在这里也适用。想象一下，如果有多个模块导出 $DEBUGVAR。

有多种方法可以解决您的困境，但最好的方法是使用面向对象的 Perl 来帮助设置此变量，甚至允许用户更改它。

package MyPackage;

use strict;
use warnings;
use feature qw(say);

sub new {
   my $class = shift;
   my $debug = shift;  #Optional Debug Value

   my $self = {};
   bless $self, $class;

   if (not defined $debug) {
      $debug = "Hello, world!";

   $self->Debug($debug);
   return $self;
}

sub Debug {
   my $self  = shift;
   my $debug = shift;

   if (defined $debug) {
      $self->{DEBUG} = $debug;
   }
   return $debug;
}

1;

要使用此模块，我只需创建一个新对象，然后将为我设置“调试”：

use strict;
use warnings;
use MyPackage               #No exporting needed

#Create an object w/ Debug value;
my $obj = MyPackage->new;   #Debug is the default.
say $obj->Debug;            #Prints "Hello, world!"

# Change the value of Debug
$obj->Debug("Foo!");
say $obj->Debug;            #Now prints "Foo!"

#Create a new object with a different default debug
$obj2 = MyPackage->new("Bar!");
say $obj2->Debug;           #Print "Bar!";

这解决了几个问题：

• 它允许多个调试值，因为每个对象现在都有自己的值
• 不用担心名称空间污染或访问包变量。同样，您所需要的一切都包含在对象本身中。
• 由于复杂性隐藏在对象本身内部，因此调试问题变得更加容易。
• 这是新的首选方法，因此您不妨习惯语法并能够阅读面向对象的 Perl 代码。你会越来越多地看到它。

Answer 2

虽然从包中导出变量不一定是推荐的做法，但为此，您需要使用要导出的变量的实际名称。在本例中，它是 $DEBUGVAR，而不是子例程的名称 DEBUGVAR。

在使用配置模块的脚本中，您不需要将 $DEBUGVAR 变量声明为 our，因为导入的变量不受严格变量的约束。

Answer 3

你把这个名字弄混了，它看起来像：

use config_global ...

package global_config;

尽管人们会认为这会发出警告。除非你不使用警告...？

ETA：

our @EXPORT_OK = qw($DEBUGVAR);
                    ^  

此外，该变量有两个声明。调试时确实需要使用警告，否则，您将一事无成。

Answer 4

您确定要在此处使用逗号吗：

use config_global qw(config, DEBUGVAR);

另外，您没有导出配置，因此它可能会更好地工作，因为：

use config_global qw(DEBUGVAR);

我还将删除最后一个 our $DEBUGVAR; 因为它可能会将其设置为 undef （或者至少把它放在“使用”行之前）——但我对此不确定。