PERL对象编程基础-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

PERL对象编程基础

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　[日记文]PERL面象对象编程基础----引用(指针)[BASIC PART I]

　　writer:demonalex

　　email:demonalex_at_hacker.com.cn

　　此文的内容是PERL对象编程的基础，希望各位能弄懂。

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　首先说说引用(reference)，他有点类似C的指针，看看下面例子:

　　------------------------

　　#!usr/bin/perl -w

　　#c:＼test4.pl

　　$a=’aaa’; #定义变量$a，附入值为字符串aaa

　　$b=＼$a; #定义变量$b，其值为变量$a的地址

　　print"$b＼n"; #打印$b到STDOUT

　　exit 1; #退出程式

　　输出结果:

　　C:＼>perl test4.pl

　　SCALAR(0x1af2f6c)

　　解说一下上面显示的返回值，SCALAR(0x1af2f6c)，’SCALAR’表示此地址所储存的原始值为Perl

　　普通变量(’$’)，而’0x1af2f6c’表示地址值。

　　------------------------

　　从上例能够看到使用’’(反斜杠运算符)能够创建引用变量(指针变量)。

　　若要将引用变量地址所在的储存区的内容读取，能够使用以下两种方法:

　　1)间接引用，也就是在引用变量前加上相应的类型符号，例子:

　　------------------------

　　#!usr/bin/perl -w

　　#c:＼test5.pl

　　$a=’aaa’; #定义变量$a，附入值为字符串aaa

　　$b=＼$a; #定义变量$b，其值为变量$a的地址

　　$c=$$b; #定义变量$c，其值为指针变量$b的储存区内容

　　print"$c＼n"; #打印$c到STDOUT

　　exit 1; #退出程式

　　输出结果:

　　C:＼>perl test5.pl

　　aaa

　　------------------------

　　所以以后凡是看到有$(实变量符号)、@(数组符号)、%(哈希数组符号)后跟着一个变量的话，那么跟在

　　后面的那一个变量就一定是个引用指针变量了，而整个数值的本身就是个转化过程，如:%$abc，此

　　数值本身代表了一个哈希数组，而数值的储存地址为$abc。

　　2)只二种方法只适用于数组和哈希数组。举两个简单例子:

　　------------------------

　　#!usr/bin/perl -w

　　#c:＼test6.pl

　　@a=(’a’,’b’,’c’); #定义数组a，其成员值均为字符串，分别为’a’、’b’、’c’

　　$b=＼@a; #将数组a的地址值负给指针变量$b

　　$c=$b->[0]; #使用’->’符号读取其地址的第一个值

　　print"$c＼n"; #打印$c到STDOUT

　　print"$b＼n"; #打印$b到STDOUT

　　exit 1; #退出程式

　　输出结果:

　　C:＼>perl test6.pl

　　a

　　ARRAY(0x1af2f58)

　　’ARRAY’为数组，’0x1af2f58’为其地址值。

　　------------------------

　　#!usr/bin/perl -w

　　#c:＼test7.pl

　　%a=(first=>’hi’,second=>’hello’,third=>’ok’); #定义HASH数组a

　　$b=＼%a; #将HASH数组a的地址值负给指针变量$b

　　$c=$b->{second}; #使用’->’符号读取其地址的第一个值

　　print"$c＼n"; #打印$c到STDOUT

　　print"$b＼n"; #打印$b到STDOUT

　　exit 1; #退出程式

　　输出结果:

　　C:＼>perl test7.pl

　　hello

　　HASH(0x1af2f58)

　　’HASH’表示哈希数组，’0x1af2f58’为其地址值。

　　------------------------

　　从以上两个例子能够看出，此方法的主要特点就是使用’->’符号来读取数组和HASH数组的元素。

　　最后做多一个实验:

　　------------------------

　　#!usr/bin/perl -w

　　#c:＼test8.pl

　　$a={first=>’aaa’,second=>’bbb’,third=>’ccc’}; #将一个HASH数组负值给变量$a

　　$b=$a->{second}; #将$a地址变量中的second标式所对应的内容值负给变量$b

　　print"$b＼n"; #打印变量$b到STDOUT

　　print"$a＼n"; #打印变量$a到STDOUT

　　exit 1; #退出程式

　　输出结果:

　　C:＼>perl test8.pl

　　bbb

　　HASH(0x1aff0f8)

　　------------------------

　　楼上的实例不难看出，直接使用指针变量作数组或HASH数组的负值对象也是能够的，此方法还能够

　　达到匿名负值的效果。但是要注意，平常的负值格式应该是:%a=(first=>’aaa’,second=>’bbb’,third=>’ccc’);，

　　负值时用的是小括号，而这里负值时必须用大括号，用于表示此地址所在的内容值为HASH数组(那假如

　　是数组当然就要用中括号了)。楼上例子能够这样理解:将某一数组或HASH数组负给一个变量时，变量的值

　　便为该数组或HASH数组的起此地址，一但使用了’->’符号加标式符，就能够读取其内容中标式所对应的

　　值。此用法的理解和C语言的指针相当。

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　最近‘浮生事’太多，忙但是来，这篇烂文用了整整2-3天才完成，真是‘罪过，罪过.......’。

　　[日记文]PERL面象对象编程基础----对象[BASIC PART II]

　　writer:demonalex

　　email:demonalex_at_hacker.com.cn

　　继续上文介绍的内容----引用(指针)，能够这样理解，其实对象(object)本身也是个

　　引用。对象的本身只但是是被某‘块’预先定义了的引用地址变量，打个比方，有某对象名

　　曰$aaa，他是个被‘神圣化’(这里神圣化的简洁意思是被强行定义的，能够这样理解)的

　　HASH数组，要读取其中标签为‘who’的值，就是：

　　$aaa->{who};

　　能够看到，其和引用中读取不规则地址值中的标签的量所使用的方法是相同的。能够说对象和

　　指针量是相同的，唯一最大的不同在于对象拥有‘方法’(method)。方法就像是个个体以下的

　　一个子程式，格式如：

　　$object->record();

　　’$object’是对象，’record()’是方法，他们之间使用’->’符号联系起来。

　　完整的对象调用格式应该是：

　　模块名::对象名->方法名(参数1,参数2,......);

　　关于上面格式的讲解：

　　模块名为创建此对象所在的模块的名字；对象名为此对象的名称；方法名为需要调用的方法的

　　名称；当此方法调用无需参数时，小括号能够省略。

　　问：怎样在程式中构造一个对象呢？

　　答：首先必须在程式中使用一个构造函数new()。其’基本’调用法则如下：

　　$object=模块名::基类对象->new();

　　当然，以上的‘模块名::基类对象’部分是能够嵌套调用。

　　最后做个实例吧：

　　----------------------------------------------------------

　　#!usr/bin/perl -w

　　#c:＼test22.pl

　　use IO::Socket; #导入IO::Socket模块

　　$host=$ARGV[0]; #程式运行时的第一个参数负值于变量$host

　　$port=$ARGV[1]; #程式运行时的第二个参数负值于变量$port

　　$aaa=IO::Socket::INET->new("$host:$port"); #新建一个SOCKET对象$aaa，参数为’服务器:端口’，默认为TCP连接

　　$bbb=$aaa->getline(); #从SOCKET中读取一行并负值给变量$bbb

　　chop($bbb); #剪去变量$bbb最后的结尾符号

　　print"$bbb＼n"; #把变量$bbb打印到STDOUT

　　$aaa->close; #关闭SOCKET对象$aaa

　　exit 1; #退出程式

　　#以上程式能够读取某服务器中的某个处出accept()的SOCKET中的一行

　　#格式:perl c:＼test22.pl 服务器名端口名

　　----------------------------------------------------------

　　PS:由于程式要使用SOCKET对象编程，所以必须在程式开头时使用use语句把’IO::Socket’模块调

　　入程式。一开始偶把’IO::Socket’写成了’IO::SOCKET’，结果运行时不停地提示很难找到相应的

　　模块，吓得偶顿时出了身冷汗。这个‘故事’提醒我们大小写是很重要的......相信*NIX的使

　　用者是不会犯这样的错误吧......:P

　　[日记文]PERL面象对象编程基础----IO::File和IO::Handle[BASIC PART III]

　　writer:demonalex

　　email:demonalex_at_cnean.net

　　这次所说的IO::File和IO::Handle模块就是PERL I/O对象编程的基础，学习他们的语法有助于更快地

　　了解PERL对象编程。这篇文章内容还是以介绍方法居多。

　　IO::Handle为通用句柄模块(包括文档句柄、管道句柄、SOCKET句柄)；IO::File更针对于文档语柄。

　　注明:IO::File是IO::Handle的子类，继承了IO::Handle的任何方法，并且还加入了两个自己独有的方法:

　　new()和new_tmpfile()。

　　下面是两个主要模块的任何方法调用:

　　****************************************************************************************************************

　　-------------------------------------------------------------------------------------------------

　　$handle=IO::File->new($filename[,$mode[,$perms]]);

　　打开一个文档句柄。单参数使用时和open()的使用方法相当。参数$mode为打开此文档管道的模式，其值可

　　以是八进制字符，也能够是典型的文档句柄符号。参数$perms用于配置打开此文档句柄的权限，其值为八进

　　制字符。建议还是使用单参数方式比较简洁，如:

　　$handle=IO::File->new(">c:＼dark2s.txt"); #单参数调用

　　#or

　　$handle2=IO::File->new("c:＼demonalex.txt",">"); #双参数调用

　　-------------------------------------------------------------------------------------------------

　　$handle=IO::File->new_tmpfile;

　　此方法调用无需要参数，故后面的小括号对省略。其调用后会在系统中生成一个临时的匿名文档，用于读写

　　操作的缓冲用，主要是用于*nix系统。

　　-------------------------------------------------------------------------------------------------

　　$result=$handle->close;

　　无参数，用于关闭对象。若调用成功其返回值$result为‘真’。

　　-------------------------------------------------------------------------------------------------

　　$result=$handle->open($filename[,$mode[,$perms]]);

　　此方法的任何参数和new方法的参数调用完全相同。调用此方法的目的是为了重新打开一个文档句柄，返回值

　　$result为布尔值。

　　-------------------------------------------------------------------------------------------------

　　$result=$handle->print(@args);

　　写入句柄方法，使用格式和STDOUT的print输出相当。参数为输出字符串，返回值$result为布尔值。

　　-------------------------------------------------------------------------------------------------

　　$result=$handle->printf($fmt,@args);

　　格式化写入句柄方法，使用格式和STDOUT的printf输出相当。第一个参数为输出格式，后跟输出的字符串，返

　　回值$result为布尔值。

　　-------------------------------------------------------------------------------------------------

　　$bytes=$handle->write($data[,$length[,$offset]]);

　　调用方式和调用参数和STDOUT的write()调用相同，返回值为成功写句柄字节数。

　　-------------------------------------------------------------------------------------------------

　　$bytes=$handle->syswrite($data[,$length[,$offset]]);

　　调用方式和调用参数和STDOUT的syswrite()调用相同，但是使用了stdio缓存，返回值为成功写句柄字节数。

　　-------------------------------------------------------------------------------------------------

　　$line=$handle->getline;

　　从句柄变量$handle中读取一行，将其值负值于返回值$line。无参数，效果等同于STDIN的’<>’符号。

　　-------------------------------------------------------------------------------------------------

　　@line=$handle->getlines;

　　从句柄变量$handle中读取任何行，将其值负值于返回数组@line。无参数，效果等同于:

　　@line=<HANDLE> #HANDLE为句柄

　　-------------------------------------------------------------------------------------------------

　　$bytes=$handle->read($buffer,$length[,$offset]);

　　调用方式和调用参数和STDOUT的read()调用相同，返回值为成功读句柄字节数。

　　-------------------------------------------------------------------------------------------------

　　$bytes=$handle->sysread($buffer,$length[,$offset]);

　　调用方式和调用参数和STDOUT的sysread()调用相同，返回值为成功读句柄字节数。

　　-------------------------------------------------------------------------------------------------

　　$previous=$handle->autoflush([$boolean]);

　　打开autoflush模式，也就关闭读写缓存模式。参数为布尔值，无参数时默认为打开autoflush模式。返

　　回值为调用此方法前的前一个状态。

　　-------------------------------------------------------------------------------------------------

　　$boolean=$handle->opened;

　　此方法用于测试对象是否被打开了(也就是测试这个句柄是否有效)，返回值为布尔值。此方法的调用等同于:

　　defined fileno($handle);

　　-------------------------------------------------------------------------------------------------

　　$boolean=$handle->eof;

　　无参数，用于测试读取指针是否句柄的尽头，返回值为布尔值。

　　-------------------------------------------------------------------------------------------------

　　$handle->flush;

　　调用此方法将使程式的缓存数据立即‘涌出’。无参数，无返回值。

　　-------------------------------------------------------------------------------------------------

　　$boolean=$handle->block([$boolean]);

　　用于控制句柄阻塞模式的开和关。参数为布尔值，无参数时默认为打开阻塞模式，其返回值亦为布尔值。

　　-------------------------------------------------------------------------------------------------

　　$handle->clearerr;

　　无参数，无返回值。用于清除$handle句柄对象在调用过程中出现错误产生的错误标志。

　　-------------------------------------------------------------------------------------------------

　　$boolean=$handle->error;

　　无参数，调用此方法后，从$handle句柄对象的建立到此句柄对象从内存中卸下的整个过程中若出现了错误，则

　　调用此方法的返回值就会为1。此方法其实是个检查$handle句柄对象在调用过程有没有发生错误的方法。

　　-------------------------------------------------------------------------------------------------

　　$handle=IO::File->new_from_fd($handle,$mode);

　　调用此方法用于生成拷贝句柄对象。第一个参数为被拷贝的源句柄对象，第二个参数为句柄操作符，返回值为

　　拷贝的目标句柄对象。

　　-------------------------------------------------------------------------------------------------

　　$result=$th->fdopen($handle,$mode);

　　用于重新打开一个已存在的句柄对象，第一个参数为句柄对象名，第二个参数为句柄操作符，返回值为布尔

　　值。

喜欢本文，那就收藏到：

上一篇: CGI教程(1)简介

下一篇: perl常问问题集--第七篇

相关推荐

相关资讯