因为项目原因,接触了一门新的语言----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。
package Property;sub new{ my $class = shift; my $file = shift; bless \$file, $class;}sub getProperty{ my $self = shift; my $file_name = $$self; my $key = shift; 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;}1;
至此,一个简单的perl类就定义好了。对不熟悉perl语言的朋友来说,这个类理解起来肯定有点费劲,别管那么多了,趁热打铁,再来个测试方法,把程序跑起来再说。
use 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:功力尚浅,说的不对的地方还请指正。