Perl构造函数用法解析

本文和大家重点讨论一下Perl构造函数的概念，Perl构造函数是类的子程序，它返回与类名相关的一个引用，将类名与引用相结合称为“祝福”一个对象，因为建立该结合的函数名为bless()。

创新互联成立于2013年，是专业互联网技术服务公司，拥有项目成都做网站、成都网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元余干做网站,已为上家服务,为余干各地企业和个人服务,联系电话:028-86922220

Perl构造函数

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

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

{}创建一个对不含键/值对的哈希表（即关联数组）的引用，返回值被赋给局域变量$this。函数bless()取出该引用，告诉对象它引用的是Cocoa，最后返回该引用。函数的返回值现在指向这个匿名哈希表。

从new()函数返回后，$this引用被销毁，但调用函数保存了对该哈希表的引用，因此该哈希表的引用数不会为零，从而使Perl在内存中保存该哈希表。创建对象可如下调用：
$cup=newCocoa;
下面语句为使用该包创建对象的例子：

 
 
 
  
  
  1#!/usr/bin/perl  
  
  
  2push(@INC,'pwd');  
  
  
  3useCocoa;  
  
  
  4$cup=newCocoa;

第一行指出Perl解释器的位置，第二行中，将当前目录加到路径寻找列表@INC中供寻找包时使用。你也可以在不同的目录中创建你的模块并指出该绝对路径。例如，如果在/home/test/scripts/创建包，第二行就应该如下：
push(@INC,"/home/test/scripts");

在第三行中，包含上包Cocoa.pm以获取脚本中所需功能。use语句告诉Perl在@INC路径寻找文件Cocoa.pm并包含到解析的源文件拷贝中。use语句是使用类必须的。第四行调用new函数创建对象，这是Perl的妙处，也是其易混淆之处，也是其强大之处。创建对象的方法有多种，可以这样写：
$cup=cocoa->new();
如果你是C程序员，可以用双冒号强制使用Cocoa包中的new()函数，如：
$cup=Cocoa::new();

可以在Perl构造函数中加入更多的代码，如在Cocoa.pm中，可以在每个对象创建时输出一个简单声明，还可以用Perl构造函数初始化变量或设置数组或指针。
注意：
1、一定要在Perl构造函数中初始化变量；
2、一定要用my函数在方法中创建变量；
3、一定不要在方法中使用local，除非真的想把变量传递给其它子程序；
4、一定不要在类模块中使用全局变量。

加上声明的CocoaPerl构造函数如下：

 
 
 
  
  
  subnew{  
  
  
  my$this={};  
  
  
  print"\n/*\n**CreatedbyCocoa.pm\n**Useatownrisk";  
  
  
  print"\n**Didthiscodeevengetpassthejavaccompiler?";  
  
  
  print"\n**/\n";  
  
  
  bless$this;  
  
  
  return$this;  
  
  
  }

也可以简单地调用包内或包外的其它函数来做更多的初始化工作，如：

 
 
 
  
  
  subnew{  
  
  
  my$this={}  
  
  
  bless$this;  
  
  
  $this->doInitialization();  
  
  
  return$this;  
  
  
  }

◆创建类时，应该允许它可被继承，应该可以把类名作为第一个参数来调用new函数，那么new函数就象下面的语句：

 
 
 
  
  
  subnew{  
  
  
  my$class=shift;#Gettherequestclassname  
  
  
  my$this={};  
  
  
  bless$this,$class#Useclassnametobless()reference  
  
  
  $this->doInitialization();return$this;  
  
  
  }

此方法使用户可以下列三种方式之一来进行调用：

Cocoa::new()
Cocoa->new()
newCocoa
可以多次bless一个引用对象，然而，新的将被bless的类必然把对象已被bless的引用去掉，对C和Pascal程序员来说，这就象把一个指针赋给分配的一块内存，再把同一指针赋给另一块内存而不释放掉前一块内存。总之，一个Perl对象每一时刻只能属于一个类。
对象和引用的真正区别是什么呢？Perl对象被bless以属于某类，引用则不然，如果引用被bless，它将属于一个类，也便成了对象。对象知道自己属于哪个类，引用则不属于任何类。

实例变量

作为Perl构造函数的new()函数的参数叫做实例变量。实例变量在创建对象的每个实例时用于初始化，例如可以用new()函数为对象的每个实例起个名字。
可以用匿名哈希表或匿名数组来保存实例变量。
用哈希表的代码如下：

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

用数组保存的代码如下：

 
 
 
  
  
  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文件系统应用中函数的语法
Perl文件属性函数
实例解析Perl守护进程用法
Perl模式匹配经验总结
术语汇编 Perl变量中Perl关联数组用法解析

本文题目：Perl构造函数用法解析
转载源于：http://www.mswzjz.com/qtweb/news46/203346.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容