Perl语言中的Perl类、对象、包的概念

本篇内容介绍了“Perl语言中的Perl类、对象、包的概念”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

Perl类、对象、包概念解析

Perl类与对象

◆Perl类是一个Perl包，其中含提供对象方法的Perl类。
◆方法是一个Perl子程序，Perl类名是其***个参数。
◆对象是对Perl类中数据项的引用。

◆首先，创建一个名为Cocoa.pm的包文件(扩展名pm是包的缺省扩展名，意为PerlModule)。一个模块就是一个包，一个包就是一个Perl类。在做其它事之前，先加入1;”这样一行，当你增加其它行时，记住保留“1;”为***一行。这是Perl包的必需条件，否则该包就不会被Perl处理。下面是该文件的基本结构。

包

packageCocoa;
requireExporter;
@ISA=qw(Exporter);
@EXPORT=qw(setImports,declareMain,closeMain);
#这两行包含上Exporter.pm模块，并把ExporterPerl类名加入@ISA数组以供查找。接下来把你自己的Perl类方法列在@EXPORT数组中就可以了。例如想输出方法closeMain和declareMain，语句如下：@EXPORT=qw(declareMain,closeMain);

构造函数

构造函数是Perl类的子程序，它返回与Perl类名相关的一个引用。将Perl类名与引用相结合称为“祝福”一个对象，因为建立该结合的函数名为bless()，其语法为：
#blessYeReference[,classname]
#YeReference是对被“祝福”的对象的引用，classname是可选项，指定对象获取方法的包名用于继承其他Perl类，其缺省值为当前包名。
创建一个构建函数的方法为返回已与该Perl类结合的内部结构的引用，如：构造函数

subnew{  my$this={};#Createananonymoushash,and#selfpointstoit.  bless$this;#ConnectthehashtothepackageCocoa.bless$this,$parentClass  return$this;#Returnthereferencetothehash.  }

{}创建一个对不含键/值对的哈希表（即关联数组）的引用，返回值被赋给局域变量$this。函数bless()取出该引用，告诉对象它引用的是Cocoa，***返回该引用。函数的返回值现在指向这个匿名哈希表。
从new()函数返回后，$this引用被销毁，但调用函数保存了对该哈希表的引用，因此该哈希表的引用数不会为零，从而使Perl在内存中保存该哈希表。

Perl类的调用

1#!/usr/bin/perl  2push(@INC,'pwd');  3useCocoa;  4$cup=newCocoa;#或者$cup=cocoa->new();或$cup=Cocoa::new();

包的构造函数

subnew{  my$type=shift;  my%parm=@_;  my$this=[];  $this->[0]=$parm{'Name'};  $this->[1]=$parm{'x'};  $this->[2]=$parm{'y'};  bless$this,$type;  }

新建对象：

$mug=Cocoa::new('Name'=>'top','x'=>10,'y'=>20);
操作符=>与逗号操作服功能相同，但=>可读性好。访问方法如下：
print"Name=$mug->{'Name'}\n";
print"x=$mug->{'x'}\n";
print"y=$mug->{'y'}\n";

Perl类静态方法：

1.subnameLister{  2.my$this=shift;#构造函数即静态方法。虚方法通常首先把***个参数shift到变量self或this中，然后将该值作普通的引用使用  3.my($keys,$value);  4.while(($key,$value)=each(%$this)){  5.print"\t$keyis$value.\n";  6.}  7.}

“Perl语言中的Perl类、对象、包的概念”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注亿速云网站，小编将为大家输出更多高质量的实用文章！