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