perl对象中的多种数据类型

Question

我正在尝试在perl中创建一个包含数组和两个整数标量的对象.

到目前为止,我有:

new
{
$class = shift;
$self = [];
$int1 = shift;
$int2 = shift;

bless($self, $class);
}

这适用于使用$ self - > [number]访问数组

我希望能够访问int1和int2.如果我将它们放在构造函数之外,当我更改它们时,它们将针对对象的每个实例进行更改.

谢谢.

Answer 1

sub new {
    my ($class, $int1, $int2) = @_;
    my $self = bless({}, $class);
    $self->{array} = [];
    $self->{int1} = $int1;
    $self->{int2} = $int2;
    return $self;
}