解析Perl语言中Perl类的注释和创建方法

开发 架构
Perl语言中Perl类有很多值得学习的地方,这里向大家简单介绍一下它的概念和使用,Perl4是用双冒号(::)来标识基本Perl类和继承Perl类(子Perl类)。

本文和大家重点讨论一下Perl类概念的相关内容,Perl5的语法可以创建Perl类,如果你已熟悉C++,那么大部分语法你已经掌握了。与Perl4不同的概念是用双冒号(::)来标识基本Perl类和继承Perl类(子Perl类)。

一、Perl类

再强调一下,一个Perl类是仅是一个包而已。当你看到Perl文档中提到“Perl类”时,把它看作“包”就行了。Perl5的语法可以创建Perl类,如果你已熟悉C++,那么大部分语法你已经掌握了。与Perl4不同的概念是用双冒号(::)来标识基本Perl类和继承Perl类(子Perl类)。
面向对象的一个重要特性是继承。Perl中的继承特性与其它面向对象语言不完全一样,它只继承方法,你必须用自己的机制来实现数据的继承。
因为每个Perl类是一个包,所以它有自己的名字空间及自己的符号名关联数组(详见第x章关联数组),每个Perl类因而可以使用自己的独立符号名集。与包的引用结合,可以用单引号(')操作符来定位Perl类中的变量,Perl类中成员的定位形式如:$class'$member。在Perl5中,可用双冒号替代单引号来获得引用,如:$class'$member与$class::$member相同。

二、创建Perl类。

本节介绍创建一个新Perl类的必要步骤。下面使用的例子是创建一个称为Cocoa的简单的Perl类,其功能是输出一个简单的Java应用的源码的必要部分。放心,这个例子不需要你有Java的知识,但也不会使你成为Java专家,其目的是讲述创建Perl类的概念。
首先,创建一个名为Cocoa.pm的包文件(扩展名pm是包的缺省扩展名,意为PerlModule)。一个模块就是一个包,一个包就是一个Perl类。在做其它事之前,先加入“1;”这样一行,当你增加其它行时,记住保留“1;”为最后一行。这是Perl包的必需条件,否则该包就不会被Perl处理。下面是该文件的基本结构。

  1. packageCocoa;  
  2. #  
  3. #Put"require"statementsinforallrequired,importedpackages  
  4. #  
  5. #  
  6. #Justaddcodehere  
  7. #  
  8. 1;#terminatethepackagewiththerequired1; 

 接下来,我们往包里添加方法使之成为一个Perl类。第一个需添加的方法是new(),它是创建对象时必须被调用的,new()方法是对象的构造函数。

三、Perl类和对象的一些注释

OOP的最大好处就是代码重用。OOP用数据封装来隐藏一些复杂的代码,Perl的包和模块通过my函数提供数据封装功能,但是Perl并不保证子Perl类一定不会直接访问基Perl类的变量,这确实减少了数据封装的好处,虽然这种动作是可以做到的,但却是个很坏的编程风格。

注意:
1、一定要通过方法来访问Perl类变量。
2、一定不要从模块外部直接访问Perl类变量。
当编写包时,应该保证方法所需的条件已具备或通过参数传递给它。在包内部,应保证对全局变量的访问只用通过方法传递的引用来访问。对于方法要使用的静态或全局数据,应该在基Perl类中用local()来定义,子Perl类通过调用基Perl类来获取。有时,子Perl类可能需要改变这种数据,这时,基Perl类可能就不知道怎样去寻找新的数据,因此,这时最好定义对该数据的引用,子Perl类和基Perl类都通过引用来改变该数据。

最后,你将看到如下方式来使用对象和Perl类:
usecoffee::Bean;
这句语句的含义是“在@INC数组所有目录的Coffee子目录来寻找Bean.pm”。如果把Bean.pm移到./Coffee目录,上面的例子将用这一use语句来工作。这样的好处是有条理地组织Perl类的代码。再如,下面的语句:
useAnother::Sub::Menu;
意味着如下子目录树:
./Another/Sub/Menu.pm
 

【编辑推荐】

  1. Perl类及创建方法揭秘
  2. 术语汇编 Perl类概念详解
  3. 解析四大Perl操作符用法
  4. 浅析Perl面向对象编程用法
  5. Perl标量转换函数用法指南

 

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-20 10:23:24

Perl类

2010-07-21 09:50:51

Perl调试

2010-07-19 10:01:57

Perl函数

2010-07-13 15:34:09

Perl语言

2010-07-19 09:16:47

Perl包

2010-07-20 11:37:00

Perl函数返回值

2010-07-23 13:46:27

Perl语言

2010-07-19 15:37:48

Perl日期时间

2010-07-20 08:58:28

Perl类

2010-07-23 13:07:39

Perl

2010-07-23 13:23:10

Perl语言

2010-07-26 16:23:23

Perl语言

2010-07-20 15:02:20

Perl数组

2010-07-20 16:00:09

Perl模块

2010-07-19 13:49:17

Perl函数

2010-07-20 14:41:55

Perl语法

2010-07-15 09:56:58

Perl语言

2010-07-13 10:05:54

Perl语言

2010-07-13 14:26:11

Perl数组

2010-07-26 15:06:29

Perl解析XML文件
点赞
收藏

51CTO技术栈公众号