在perl中调用基础构造函数

package MyClass;

sub new {
    my ($class, $arg1, $arg2) = @_;
    
    my $self = {
        attribute1 => $arg1,
        attribute2 => $arg2,
    };
    
    bless $self, $class;
    return $self;
}

sub get_attribute1 {
    my ($self) = @_;
    return $self->{attribute1};
}

sub get_attribute2 {
    my ($self) = @_;
    return $self->{attribute2};
}

# 创建对象并调用构造函数
my $obj = MyClass->new("value1", "value2");

# 调用对象的方法获取属性值
my $attr1 = $obj->get_attribute1();
my $attr2 = $obj->get_attribute2();