PERL中的面向对象编程

Perl作为一种流行的脚本语言，除了其在文本处理方面的强大能力之外，也支持面向对象编程（Object Oriented Programming，OOP）。

OOP基础

在Perl中使用OOP，我们可以通过以下关键字来定义类：

package MyClass;

sub new {
    my $class = shift;
    my $self = {};

    bless $self, $class;
    return $self;
}

sub methodA {
    # code here
}

• package：用于定义类的命名空间，一个Perl源文件可以定义多个包。
• sub new：类的构造函数，用于创建类的实例对象。它返回的是一个新创建的对象引用。在函数内部，使用bless操作符将对象实例“祝福”（bless），以便在后续的调用中使用$self引用对象实例。
• sub methodA：类的成员函数。

封装、继承和多态

Perl支持面向对象编程的三个核心概念：封装、继承和多态。

封装

在Perl中，可以使用my和our修饰符来限制变量的作用域，从而实现数据的封装。

例如：

package MyClass;

sub new {
    my $class = shift;
    my $self = {
        _name => shift,
        _age  => shift,
    };

    bless $self, $class;
    return $self;
}

sub getName {
    my ($self) = @_;
    return $self->{_name};
}

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

在上面的示例中，_name和_age被封装在了对象实例内部，外部无法直接访问。我们可以使用公有的getter和setter方法来获取和设置对象实例的属性值。

继承

Perl中的继承和其他OOP语言类似，子类可以继承父类的成员变量和方法。

例如：

package ParentClass;

sub new {
    my $class = shift;
    my $self = {};

    bless $self, $class;
    return $self;
}

sub methodA {
    # code here
}

package ChildClass;

our @ISA = qw(ParentClass);

sub new {
    my $class = shift;
    my $self = $class->SUPER::new();

    bless $self, $class;
    return $self;
}

sub methodB {
    # code here
}

在上面的示例中，ChildClass继承了ParentClass的成员方法methodA。我们使用@ISA数组来指定父类。

多态

Perl中的多态能力是通过函数重载实现的。

例如：

package MyClass;

use overload 
    '+' => \&add,
    '-' => \&subtract,
    '*' => \&multiply,
    '/' => \&divide,
    '==' => \&equal,
    '!=' => \&notEqual;

sub new {
    my $class = shift;
    my $self = {
        _num => shift,
    };

    bless $self, $class;
    return $self;
}

sub add {
    my ($self, $other) = @_;
    return $self->{_num} + $other->{_num};
}

sub subtract {
    my ($self, $other) = @_;
    return $self->{_num} - $other->{_num};
}

sub multiply {
    my ($self, $other) = @_;
    return $self->{_num} * $other->{_num};
}

sub divide {
    my ($self, $other) = @_;
    return $self->{_num} / $other->{_num};
}

sub equal {
    my ($self, $other) = @_;
    return $self->{_num} == $other->{_num};
}

sub notEqual {
    my ($self, $other) = @_;
    return $self->{_num} != $other->{_num};
}

在上面的示例中，我们使用overload模块来定义了一些符号的行为，例如+, -, *, /, ==, !=等。这些函数会在重载符号时被调用，根据需要返回结果。这就是Perl的多态能力。