Perl 面向对象：bless() 与方法

Perl 的面向对象编程与传统语言有所不同，它没有专门的 class 关键字，而是通过包（package）、引用（reference）和 bless() 函数共同实现。理解 bless() 的作用，是掌握 Perl 面向对象编程的关键第一步。

1. bless() 的本质

bless() 是一个内置函数，它的作用是将一个引用与某个包关联起来。被「祝福」的引用，就变成了该包的对象。

语法如下：

bless REF, PACKAGE;

• REF：一个匿名哈希、数组或标量的引用
• PACKAGE：一个包名（也就是类名）
• 返回值：被祝福的引用本身

my $person = { name => 'Alice', age => 30 };
bless $person, 'Person';

执行上述代码后，`$person` 不再是普通的数据引用，而是一个 `Person` 类的对象实例。 --- ## 2. bless() 与构造方法 在 Perl 中，构造函数本质上就是一个普通的子程序，通常命名为 `new`。它负责创建对象并返回。 ### 基础构造函数 ```perl package Person; sub new { my $class = shift; # 获取类名
my $self = { # 创建数据结构 name => $_[0] || 'Unknown',
age => $_[1] || 0, }; bless $self, $class; # 将引用祝福为对象 return $self;
}

调用方式：

```perl
my $alice = Person->new('Alice', 30);
```

### 构造函数参数传递

构造函数支持多种参数风格：

```perl
package Person;

sub new {
    my $class = shift;
    my %args = @_;              # 接收键值对参数
    my $self = {
        name => $args{name} || 'Unknown',
        age  => $args{age}  || 0,
    };
    bless $self, $class;
    return $self;
}

# 调用
my $bob = Person->new(name => 'Bob', age => 25);
```

---

## 3. 方法的定义与调用

### 定义实例方法

在 Perl 中，方法是包中的普通子程序。第一个参数固定为对象本身（已祝福的引用）。

```perl
package Person;

sub greet {
    my $self = shift;           # $self 是对象引用
    return "Hello, I am $self->{name}";
}

sub set_age {
    my $self = shift;
    my $new_age = shift;
    $self->{age} = $new_age if $new_age > 0;
}
```

### 调用方法

Perl 提供两种调用语法：

```perl
# 箭头调用法（推荐）
$alice->greet();                # 返回 "Hello, I am Alice"

# 间接对象调用法
greet $alice;                   # 功能相同，但可读性稍差
```

### 类方法与实例方法

类方法作用于类本身（第一个参数是类名），实例方法作用于对象（第一个参数是对象引用）。

```perl
package Person;

sub who_am_i {
    my $self = shift;
    if (ref $self) {
        return "I am an instance of $self";
    } else {
        return "I am the class $self";
    }
}
```

调用对比：

```perl
Person->who_am_i();             # "I am the class Person"
$alice->who_am_i();             # "I am an instance of Person"

4. bless() 与继承

当子类继承父类时，bless() 的第二个参数决定了对象的「真实类型」。这直接影响方法查找的起点。

package Employee;
use parent -norequire, 'Person';    # 使用父类包

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);  # 调用父类构造函数
    $self->{company} = shift || 'Unknown';
    return bless $self, $class;         # 关键：用子类名祝福
}

package Person;

sub work {
    my $self = shift;
    return "$self->{name} is working";
}

package Employee;

sub work {
    my $self = shift;
    return "$self->{name} is working at $self->{company}";
}

my $employee = Employee->new('Charlie', 35, 'TechCorp');
$employee->work();               # 调用 Employee->work，返回 "Charlie is working at TechCorp"
```

即使 `Employee` 继承自 `Person`，只要 `bless()` 时指定 `Employee`，Perl 就从 `Employee` 开始搜索方法，而非 `Person`。

---

## 5. 自引用与链式调用

在方法内部，使用 `$self` 可以实现链式调用：

```perl
package Person;

sub set_name {
    my $self = shift;
    $self->{name} = shift if @_;
    return $self;                # 返回对象本身
}

sub set_age {
    my $self = shift;
    $self->{age} = shift if @_;
    return $self;
}

# 链式调用
$alice->set_name('Alice')->set_age(31);
```

---

## 6. bless() 的内部机制

理解 `bless()` 的工作原理，有助于调试复杂的面向对象代码。

当调用 `bless REF, 'MyClass'` 时，Perl 会在引用的内部数据结构中存储类名。后续通过 `ref()` 函数可以验证对象类型：

```perl
bless $obj, 'MyClass';
print ref $obj;                 # 输出 "MyClass"
print $obj->isa('MyClass');     # 真
print $obj->isa('UNIVERSAL');   # 真（所有对象继承自UNIVERSAL）
```

`isa()` 方法用于判断对象是否属于某个类或其子类：

```perl
if ($obj->isa('Person')) {
    # 对象是 Person 或其子类
}

7. 完整示例

package Person;

sub new {
    my $class = shift;
    my %args = @_;
    my $self = {
        name => $args{name} || 'Anonymous',
        age  => $args{age}  || 0,
    };
    bless $self, $class;
    return $self;
}

sub introduce {
    my $self = shift;
    return "Hi, I'm $self->{name}, $self->{age} years old.";
}

sub have_birthday {
    my $self = shift;
    $self->{age}++;
    return "$self->{name} is now $self->{age} years old.";
}

package main;

my $person = Person->new(name => 'Diana', age => 28);
print $person->introduce();          # Hi, I'm Diana, 28 years old.
print $person->have_birthday();      # Diana is now 29 years old.
```

---

## 8. 注意事项

1. **双重含义的 bless**：同一份数据结构可以被重新祝福到不同类，这在实现代理或动态类型切换时有用，但应谨慎使用。

2. **构造函数不止一个**：一个类可以有多个构造函数（如 `open`、`create`），不必强制使用 `new`，只需保持一致即可。

3. **析构方法**：定义 `DESTROY` 子程序处理对象销毁时的清理逻辑。

```perl
package Person;
sub DESTROY {
    my $self = shift;
    # 释放资源、关闭文件等
}

bless() 是 Perl 面向对象的基石。它将普通的数据引用转化为对象，赋予其类的身份，从而开启方法调用的大门。掌握 bless() 的用法，就掌握了 Perl 面向对象编程的核心。