Perl 中如何定义类？-JavaScript中文网-JavaScript教程资源分享门户

推荐答案

在 Perl 中，可以使用 package 关键字来定义类。类通常包含构造函数、方法和属性。以下是一个简单的类定义示例：

// www.javascriptcn.com code example
package MyClass;

# 构造函数
sub new {
    my $class = shift;
    my $self = {
        _name => shift,
        _age  => shift,
    };
    bless $self, $class;
    return $self;
}

# 方法
sub get_name {
    my ($self) = @_;
    return $self->{_name};
}

sub set_name {
    my ($self, $name) = @_;
    $self->{_name} = $name;
}

sub get_age {
    my ($self) = @_;
    return $self->{_age};
}

sub set_age {
    my ($self, $age) = @_;
    $self->{_age} = $age;
}

1;  # 返回真值，表示模块加载成功

本题详细解读

1. 使用 `package` 定义类

在 Perl 中，package 关键字用于定义一个命名空间，这个命名空间可以被视为一个类。类名通常与文件名相同，以便于模块加载。

package MyClass;

2. 构造函数

构造函数通常命名为 new，用于创建类的实例。bless 函数用于将引用与类名关联，使其成为该类的对象。

// www.javascriptcn.com code example
sub new {
    my $class = shift;
    my $self = {
        _name => shift,
        _age  => shift,
    };
    bless $self, $class;
    return $self;
}

3. 方法

类中的方法用于操作对象的属性。方法通常以 get_ 和 set_ 开头，分别用于获取和设置属性值。

// www.javascriptcn.com code example
sub get_name {
    my ($self) = @_;
    return $self->{_name};
}

sub set_name {
    my ($self, $name) = @_;
    $self->{_name} = $name;
}

4. 返回真值

Perl 模块文件末尾需要返回一个真值（通常是 1），以表示模块加载成功。

1;

5. 使用类

定义好类后，可以在其他 Perl 脚本中使用该类：

use MyClass;

my $obj = MyClass->new("Alice", 30);
print $obj->get_name;  # 输出: Alice
$obj->set_age(31);
print $obj->get_age;   # 输出: 31

通过这种方式，你可以在 Perl 中定义和使用类。

Perl 中如何定义类？