Perlでのオブジェクト指向プログラミングの方法は何ですか？

Perlでオブジェクト指向プログラミングを行うには、まずクラスを定義し、その後にオブジェクトを作成してクラスのメソッドを呼び出す必要があります。以下は簡単な例です：

# 定义一个类
package Person;
sub new {
    my $class = shift;
    my $self = {
        name => shift,
        age => shift,
    };
    bless $self, $class;
    return $self;
}

sub get_name {
    my $self = shift;
    return $self->{name};
}

sub get_age {
    my $self = shift;
    return $self->{age};
}

1;

# 创建对象并调用方法
my $person = Person->new("Alice", 25);
print "Name: " . $person->get_name() . "\n";
print "Age: " . $person->get_age() . "\n";

上の例では、最初にPersonというクラスが定義され、newというコンストラクターメソッドとget_name、get_ageという2つのインスタンスメソッドが含まれています。そして、Personクラスのnewメソッドを呼び出してPersonオブジェクトを作成し、get_nameとget_ageメソッドを呼び出してオブジェクトの属性値を取得しています。

Perlで注意する必要があるのは、bless関数を使ってハッシュリファレンスをクラス名にバインドし、オブジェクトを作成することです。その後、矢印演算子->を使ってオブジェクトのメソッドを呼び出すことができます。