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

发布时间：2020-12-15 23:23:16 所属栏目：大数据来源：网络整理

导读：我只是Perl的初学者,所以如果它听起来很愚蠢 – 对不起:) 我的问题是 – 我正在尝试编写一个类,它有一个空数组,在类的构造函数中定义.所以我这样做： package MyClass;use strict;sub new { my ($C) = @_; my $self = { items = () }; bless $self,ref $C ||

我只是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;

为什么我做错了是什么导致我的项目数组充满了undef？

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

解决方法

匿名数组引用构造函数是[] not(),用于将语句分组到列表中.在这种情况下,()变平为空列表,perl看到我的$self = {item => } ;.如果你运行使用警告;你会得到一个消息.

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!