Perl数组作为对象变量

Question

如果我有一个Java类,如下所示,相同的Perl表示是什么？

class Temp {
  int my_int;
  int my_array[];

  Temp() {
  }
};

具体来说,我有兴趣知道如何使用数组作为对象变量？

Answer 1

简短的回答是:

package Temp;

sub new {
    my $self = bless {
        'my_int' => 0,
        'my_array' => [] # The trick here is to use an array *reference*
                         # hence the square brackets rather than ()
    };
    return $self;
}

对于(更多!)更长的答案,请分别查看perlref,perllol和perlboot以获取引用,列表列表和OOP 训练营的介绍.一旦掌握了基础知识,可以考虑使用Moose在Perl中使用更高级的OOP方法.