Perl 教程 之 Perl 面向对象 6

Perl 面向对象

Perl 中有两种不同地面向对象编程的实现：

一是基于匿名哈希表的方式，每个对象实例的实质就是一个指向匿名哈希表的引用。在这个匿名哈希表中，存储了所有的实例属性。

二是基于数组的方式，在定义一个类的时候，我们将为每一个实例属性创建一个数组，而每一个对象实例的实质就是一个指向这些数组中某一行索引的引用。在这些数组中，存储着所有的实例属性。

方法重写

上面实例中，Employee 类继承了 Person 类，但如果 Person 类的方法无法满足需求，就需要对其方法进行重写。

接下来我们在 Employee 类中添加一些新方法，并重写了 Person 类的方法：

实例

!/usr/bin/perl

package Employee;
use Person;
use strict;
our @ISA = qw(Person); # 从 Person 继承

重写构造函数

sub new {
my ($class) = @_;

# 调用父类的构造函数
my $self = $class->SUPER::new( $_[1], $_[2], $_[3] );
# 添加更多属性
$self->{_id}   = undef;
$self->{_title} = undef;
bless $self, $class;
return $self;

}

重写方法

sub getFirstName {
my( $self ) = @_;

# 这是子类函数
print "这是子类函数\n";
return $self->{_firstName};

}

添加方法

sub setLastName{
my ( $self, $lastName ) = @_;
$self->{_lastName} = $lastName if defined($lastName);
return $self->{_lastName};
}

sub getLastName {
my( $self ) = @_;
return $self->{_lastName};
}

1;
我们在 main.pl 文件中输入以下代码，并执行:

实例

!/usr/bin/perl

use Employee;

$object = new Employee( "小明", "王", 23234345);

获取姓名，使用修改后的构造函数

$firstName = $object->getFirstName();

print "设置前姓名为 : $firstName\n";

使用辅助函数设置姓名

$object->setFirstName( "小强" );

通过辅助函数获取姓名

$firstName = $object->getFirstName();
print "设置后姓名为 : $firstName\n";
执行以上程序后，输出结果为：

$ perl main.pl
名字：小明
姓氏：王
编号：23234345
这是子类函数
设置前姓名为 : 小明
这是子类函数
设置后姓名为 : 小强