如何在Perl construtor中定义一个空数组？

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} };
}