Question

我只是Perl的初学者，所以如果它听起来很愚蠢 - 抱歉：）

我的问题是 - 我正在尝试编写一个类，它有一个空数组，在类的构造函数中定义。所以我这样做：

package MyClass;

use strict;

sub new {
    my ($C) = @_;
    my $self = {
        items => ()
    };
    bless $self, ref $C || $C;
}

sub get {
    return $_[0]->{items};
}

1;

后来我用简单的脚本测试我的课程：

use strict;
use Data::Dumper;
use MyClass;

my $o = MyClass->new();
my @items = $o->get();

print "length = ", scalar(@items), "\n", Dumper(@items);

在运行脚本时，我得到以下内容：

$ perl my_test.pl 
length = 1
$VAR1 = undef;

为什么我做错了导致我的items数组填满undef的原因？

也许有人可以告诉我示例如何定义类，所以我不会在我的数组中得到任何默认值？

Answer 1

匿名数组引用构造函数是[]而不是()，它用于将语句分组到列表中。在这种情况下，()会变为空列表，而perl会看到my $self = { item => };。如果您使用use warnings;运行，则会收到有关此消息的消息。

此外，在您的get子例程中，您可能希望取消引用字段以返回列表而不是对数组的引用：

sub get {
    return @{ $_[0]->{items} };
}

如何在Perl构造函数中定义空数组？

1 个答案: