Perl面向对象编程入门

因为项目原因，接触了一门新的语言—-Perl。初识之时，觉得它既像bash shell，又像C语言。因为有C/C++/Java以及shell基础，所以这门语言上水并没有很困难，但是它的面向对象还是给了我极其深刻的印象，因为它太“奇怪”了。即便是现在，我也不敢说理解了perl的面向对象编程，也仅仅是掌握了其基本的语法。本着学习分享的目的，今天，就通过一些简单代码来展示一下Perl的面向对象编程。

在Java或者C++中，我们会经常使用一个对象Property来读取配置文件，而Property就被定义成一个类。现在，我们就通过perl语言来实现这样一个类。包含三个文件：perl主程序文件test_perl_oop.pl（扮演的角色像是main方法）、包文件Property.pm（类似Java中类源文件）以及配置文件test.conf。

前提：#!/bin/perl表示使用perl来执行当前源程序。和众多脚本语言一样，Perl语言使用#作为单行注释符。

首先，定以“类文件”Property.pm。

#!/bin/perlpackage Property;#定义包名，同时也定义了类Property。# new方法同Java中的构造方法，my $class = shift以及bless $class似乎是定义一个类的格式，# 而$file是该类的一个属性(perl使用$来定义变量)，我用来存储配置文的文件名，这个值需要通过new方法传递进来。# 如果该类有多个属性时，可使用hash变量（符号%）来表示# perl语言中，my表示局部变量，our表示全局变量，sub表示子方法# bless $file，$class是格式，大致是将$file封装成对象，而加“\”，bless \$file表示封装成对象并返回，# 如果没有加“\”，在bless语句之后使用return $file也是可以的。sub new{  my $class = shift;  my $file = shift;  bless \$file, $class;}# 定义类的方法， my $self = shift也是一个格式，$self类似java中的this，表示当前对象# $$self，$self表示当前对象，$$self（两个$）获取的就是我在new中定义的$file，即文件名# test.conf配置文件中，每一行使用了key=value这样的格式# my $key=shift,表示getProperty方法需要传递一个参数进来sub getProperty{  my $self = shift;  my $file_name = $$self;  my $key = shift;  # 接下来就是一个常规的读文件过程，一行一行读，并将每一行以“=”为分割符，分割成数组  # key=value, 则数组第一个值为key,第二个值为value  # 将key与传递进来的$key进行比较，匹配上则返回对应的value，并关闭文件  if(open(cache,"<$file_name")){    while($line = <cache>){      chomp($line);      my @temp = split(/=/,$line);      if(@temp[0] eq $key){        close(cache);        return @temp[1];      }    }    close(cache);  }  # 没用找到对应的值时，返回一个undef，类似java中的null  undef;}# 类的格式，必须写一个1在这里1;

至此，一个简单的perl类就定义好了。对不熟悉perl语言的朋友来说，这个类理解起来肯定有点费劲，别管那么多了，趁热打铁，再来个测试方法，把程序跑起来再说。

#!/bin/perl# 引用Property类，use等同java中的import或者C/C++中的includeuse Property;# new一个Property对象my $property = Property->new("test.conf");# 调用类中方法my $name = $property->getProperty("name");my $age = $property->getProperty("age");my $gender = $property->getProperty("gender");my $adderss = $property->getProperty("address");print "name: $name, age: $age, gender: $gerder, address: $adderss\n";

还差一个配置文件test.conf

name=Francis Yangage=**gender=maleaddress=Beijing,PRC.

将这三个文件放置于同一目录下，然后使用perl test_perl_oop.pl命令运行程序，结果如下：

`
name: Francis Yang, age: **, gender: , address: Beijing,PRC.

OK，就是这样，一个简单的面向对象的perl程序就写完了。相比Java和C++语言，Perl语言在面向对象的语法上更难理解，但是楼主的态度是，管你的，“没事走两步看看”，先来个小样例程序跑一跑，跑一跑再来理解。

学习perl才刚刚开始。It is a long way to go。说到Perl，就不得不提CPAN，这里http://www.cpan.org 提供了非常丰富的Perl语言库给我们。

功力尚浅，说的不对的地方还请指正。