本文和大家重点讨论一下Perl继承的概念和用法，继承简单的说就是一个类继承另一个类后，可以使用被继承类的方法。希望本文的介绍能让你有所收获。
Perl继承
类方法通过@ISA数组Perl继承，变量的Perl继承必须明确设定。下例创建两个类Bean.pm和Coffee.pm，其中Coffee.pmPerl继承Bean.pm的一些功能。此例演示如何从基类（或称超类）Perl继承实例变量，其方法为调用基类的构造函数并把自己的实例变量加到新对象中。
Bean.pm代码如下：
- packageBean;
- requireExporter;
- @ISA=qw(Exporter);
- @EXPORT=qw(setBeanType);
- subnew{
- my$type=shift;
- my$this={};
- $this->{'Bean'}='Colombian';
- bless$this,$type;
- return$this;
- }
- #
- #Thissubroutinesetstheclassname
- subsetBeanType{
- my($class,$name)=@_;
- $class->{'Bean'}=$name;
- print"Setbeanto$name\n";
- }
- 1;
此类中，用$this变量设置一个匿名哈希表，将'Bean'类型设为'Colombian'。方法setBeanType()用于改变'Bean'类型，它使用$class引用获得对对象哈希表的访问。
Coffee.pm代码如下：
- 1#
- 2#TheCoffee.pmfiletoillustrateinheritance.
- 3#
- 4packageCoffee;
- 5requireExporter;
- 6requireBean;
- 7@ISA=qw(Exporter,Bean);
- 8@EXPORT=qw(setImports,declareMain,closeMain);
- 9#
- 10#setitem
- 11#
- 12subsetCoffeeType{
- 13my($class,$name)=@_;
- 14$class->{'Coffee'}=$name;
- 15print"Setcoffeetypeto$name\n";
- 16}
- 17#
- 18#constructor
- 19#
- 20subnew{
- 21my$type=shift;
- 22my$this=Bean->new();#####<-LOOKHERE!!!####
- 23$this->{'Coffee'}='Instant';#unlesstoldotherwise
- 24bless$this,$type;
- 25return$this;
- 26}
- 271;
第6行的requireBean;语句包含了Bean.pm文件和所有相关函数，方法setCoffeeType()用于设置局域变量$class->{'Coffee'}的值。在构造函数new()中，$this指向Bean.pm返回的匿名哈希表的指针，而不是在本地创建一个，下面两个语句分别为创建不同的哈希表从而与Bean.pm构造函数创建的哈希表无关的情况和Perl继承的情况：
my$this={};#非Perl继承
my$this=$theSuperClass->new();#Perl继承
下面代码演示如何调用Perl继承的方法：
- 1#!/usr/bin/perl
- 2push(@INC,'pwd');
- 3useCoffee;
- 4$cup=newCoffee;
- 5print"\n--------------------Initialvalues------------\n";
- 6print"Coffee:$cup->{'Coffee'}\n";
- 7print"Bean:$cup->{'Bean'}\n";
- 8print"\n--------------------ChangeBeanType----------\n";
- 9$cup->setBeanType('Mixed');
- 10print"BeanTypeisnow$cup->{'Bean'}\n";
- 11print"\n------------------ChangeCoffeeType----------\n";
- 12$cup->setCoffeeType('Instant');
- 13print"Typeofcoffee:$cup->{'Coffee'}\n";
该代码的结果输出如下：
- --------------------Initialvalues------------
- Coffee:Instant
- Bean:Colombian
- --------------------ChangeBeanType----------
- SetbeantoMixed
- BeanTypeisnowMixed
- ------------------ChangeCoffeeType----------
- SetcoffeetypetoInstant
- Typeofcoffee:Instant
上述代码中，先输出对象创建时哈希表中索引为'Bean'和'Coffee'的值，然后调用各成员函数改变值后再输出。
【编辑推荐】
