PERL对象编程基础

[日记文]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);
用于重新打开一个已存在的句柄对象，第一个参数为句柄对象名，第二个参数为句柄操作符，返回值为布尔
值。

-------------------------------------------------------------------------------------------------
****************************************************************************************************************
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
对象编程是高级编程的基础......由于笔者在翻译Win32::NetPacket的使用说明中......所以此文写得比
较草率，希望大家多多包涵......:P