在上一篇，我们介绍了pear的概念，编码规则，简单使用方法，你可能对它有了一个初步的了解。这次，我们将介绍现有的pear库中的一些模块的功能和它的使用。

一、命名约定

在了解现有的pear模块之前，我们先了解一下pear的组织分类方式和命名的约定。pear中的模块的组织方式和cpan类似，每个模块的相关文件是放在自己的分类目录下面，有的则是直接放在pear的根目录下面(单个文件)。由于pear没有象java那样的名字空间，所以你的类名应该能够体现你的模块名或者父类名之间的关系，守一定的约定，比如，你的模块名："mp3/common",那么，你的php文件应该位于：mp3/common.php,你这个模块的类名应该是：mp3_common。一般来说，如果你的模块是根据现有的某个模块改进而来的，那么建议把你的和现有的那个模块放在同一个目录下面。如果你设计的是一个新的类和模块，你可以自己建立一个新的目录，或者是按照相似的用途放在同样的目录下面。比如，你新编写了一个模块，用于处理日志的，建议你把它放在log/下面，表示是用于log处理的应用模块；如果新的模块是用于处理mp3的，那么你可以建立一个新的目录mp3,放在mp3目录下面。

二、现有的pear模块

由于pear的大多数模块仍处于开发当中，因此，这里列举的是随着php4.05一起发布的pear中的模块，需要注意的是，一些抽象类或者是基类(如mail.php,log.php,cache.php)没有列举出来，我们只是关注具有具体功能的模块。下面是这些模块的一个列表：

benchmark/timer 测试你的一段php代码的运行效率

benchmark/benchmark_iterate 测试你某个函数循环执行时的性能

cache/output 可以将你的php脚本的输出进行缓存，可以使用多种方式缓存(存在文件，数据库或者是共享内存中),如果使用这个模块有可能增大服务器的负载，所以，如果你想通过动态脚本的缓存来提供效率，不妨使用zend optimize,这个模块未必适合

cache/graphics 可以将你需要动态输出的图片进行缓存

console/getopt 命令行参数的处理模块

cmd 一个虚拟的shell，可以用它来运行一些系统的命令

crypt/cbc 实现perl crypt::cbc 模块的仿真

crypt/hcemd5 实现perl crypt::hce_md5 模块的功能

date/calc 实现日期的相关操作

date/human human历法的转换

db 提供统一的、抽象的数据库操作层，后端支持多种数据库

file/find 文件查找

file/passwd 操纵password类的文件，如password,httppass,cvspassword

file/searchreplace 在文件中查找替换字符串

html/form 可以在html中快速地创建form

html/it 实现模板定制，动态生成页面的功能，类似phplib中的模板功能，但是要简单易用

html/itx 实现对it的扩展功能，可以更加灵活地定制你的模板，实现更复杂的操作

html/processor xml_parser的扩展，使之可以应用于html文件的操作

http/compress 用于php 输出缓冲机制的一个包装类，同时可以对缓冲的内容进行压缩存储

image/remote 无需把整个图片都下载到本地就可以获取远端系统的图片的信息，

log/composite horde对log抽象类做的一个扩展，可以使多个日志处理对象能够获得同一个日志事件。注意，log目录下面的模块都是horde项目的一部分，大部分都是抽象的超类

log/file 将日志信息写入文件

log/mcal 将信息发送到本地或远端的日程管理软件-mcal的数据库中

log/observer horder中observer的一个超类

log/sql 将日志信息发送到sql数据库中

log/syslog 将信息发送到syslog中

mail/rfc822 检查一个email地址是否是合法的rf822 email地址

mail/sendmail 使用sendmail来发送信件

mail/smtp 使用smtp服务器来发送信件

math/fraction 处理分形的数学计算

math/util 计算最大公约数

net/curl 对php的curl扩展所作的面向对象的包装

net/dig 操纵dig，进行dns相关的查询操作

net/smtp 使用net/socket实现smtp协议

net/socket 通用的socket类，实现了常用的socket操作的包装

numbers/roman 阿拉伯数字和罗马数字的相互转换

payment/verisign 实现和verisign支付网关的交互

pear 提供pear模块的2个基本类，pear 和pearerror类

pear/installer pear的安装类，提供perl中的cpan模块类似的功能

phpdoc 从php代码中自动生成api文档

schedule/at 和unix 上的at守护进程进行交互

xml/parser 基于php的xml扩展所作的xml的解析器

xml/render 将xml文档生成其它的格式(html,pdf),这只是一个抽象类，在最新的pear cvs代码中已经有了html的实现

xml/rpc 用php实现xml-rpc的一个抽象类，在最新的pear cvs代码中已经有了xml/rpc/server的实现

三、主要模块使用简介

现在我们将简单地介绍一些比较常用的，而且功能已经比较完善和稳定，可以用于“实战“模块，其中对于几个功能很强大的模块db,phpdoc,xml_parser，it,itx将在以后的文章中单独介绍。

1.pear/installer

这个模块属于pear本身的核心模块，它完成pear其它模块的安装和维护工作，类似perl中的cpan模块的功能，不过目前只有install功能，其它诸如查询，检查依赖性等等都没有完成，pear本身也没有类似 cpan 那样的开放的站点，不过随着参与pear的开发人员的不断增加，一切都会有的。

使用语法：pear_installer::installer($file)

$file是需要安装的模块文件，可以是本地文件，也可以是远程的文件，如http://或者是ftp，installer会自动下载到本地。文件一般使用gzip打包，其中要包括一个package.xml文件，用于描述你的这个模块的相关信息，如包含的文件，相互依赖性等，此外当然要包括你的模块的php文件。pacakage.xml的dtd文件在pear目录下面，名字是package.dtd.

require_once "pear/installer.php";

$installer = new pear_installer;

//安装指定的模块

$result = $installer->install($package_file);

if ( pear::iserror($result)){

echo "install $package_file failed!";

}else {

echo "install $package_file sucess!";

}

?>

2.cmd

虽然大多数的php应用很少调用系统命令，因为这些应用都是基于web的，从运行效率和系统的负载考虑，都要避免直接调用系统命令，不过，在有些特殊的应用或者是你愿意把php作为一个shell工具的时候，调用现有的系统工具就是不可避免的了。cmd可以让你很方便地执行一系列的系统命令。

使用语法：setoption ($option, $setting)

设置参数$options为$setting

$options是一个常量，它可以是以下值：

cmd_shutdown : 通过shutdown函数来执行命令

cmd_shell : 指定shell的路径

cmd_output : 是否屏蔽命令的标准输出

cmd_nohup : 使用nohup后台执行命令

cmd_verbose : 将错误打印到标准输出

command($command)

添加需要执行的命令，$command可以是数组或普通的字符串

exec()

执行已经添加的命令

require_once "cmd.php";

$cmd = new cmd;

$cmd->command(tar zcvf test.tar.gz ~/test);

if ( $cmd->exec() ) {

echo "success！\n";

} esle {

echo "error:" . $cmd->lasterror;

}

?>

3.benchmark/timer和benchmark/iterate

这2个模块可以让你测试你的代码的运行效率如何，我认为这对于系统调试很有用：你可以尝试不同的算法，仔细考察每种算法需要运行的时间，然后选择最佳的方式。benchmark/timer测试运行中在2个不同的时间点的时间差，benchmark/iterate则是对timer扩展，测试运行某段代码(函数)n次所需要的时间。

使用语法：benchmark/timer

timer::setmarker($name) 设置当前时间点为$name

timer::start() 开始测试

timer::stop() 停止测试

timer::timeelapsed($start = start, $end = stop) 计算$start和$end 这2个时间点的时间差

timer::getprofiling() 返回start 和 stop 之间所耗用的时间

require_once "benchmark/timer.php";

$timer = new benchmark_timer;

$timer->start();

$timer->setmarker(marker 1);

$timer->stop();

$profiling = $timer->getprofiling();

?>

benchmark/iterate

iterate::run()

循环运行指定的函数。这是一个具有可变参数的方法，第一个参数是要循环的次数，第2个参数是要执行的函数，第3个参数起则是要传递给测试函数的参数。

iterate::get()

返回测试所用的时间

require_once "benchmark/iterate.php";

$benchmark = new benchmark_iterate;

function foo($string)

{

print $string."

";

}

$benchmark->run(100, foo, test);

$result = $benchmark->get();

?>

3.file/find

&glob ($pattern, $dirpath, $pattern_type=php)

在$dirpath中搜索符合$pattern的目录和文件，返回匹配的文件和目录名数组

&search ($pattern, $directory, $type=php)

在$directory中搜索符合$pattern规则的文件，返回匹配的文件名数组(注意，只是文件，不包括子目录)。$pattern是要指定的搜索条件，一般是规则表达式，$patten_type指定使用什么模式的规则表达式，缺省是php模式，你也可以指定"perl"来使用perl模式的规则表达式

提示：search和glob不同的是，glob并不递归搜索子目录，而search则递归搜索子目录。

require_once "file/find.php";

$find = new file_find;

//搜索当前目录

$php_files = $find->glob("*php",".");

if ( pear::iserror( $php_files ) ){

die "错误：" . $php_files->getmessage() ."\n" ;

}

//递归搜索当前目录

$all_php_files = $find->search("*php",".");

if ( pear::iserror( $all_php_files ) ){

die "错误：" . $php_files->getmessage() ."\n" ;

}

?>

4.file/passwd

操纵password格式的文件，类似如标准的unix password,apache 的.htppass,cvs的pserver password文件。从现有版本的代码来看，它还不能真正地用来维护这些passwd文件(比如并不支持shadow)。不过你可以用来创建类似的密码文件，当然，安全性不会很高。

使用方法：

file_passwd($file,$lock=0)———-创建对象，$file是你要操作的passwd文件，$lock指定是否要用flock对文件上锁。

adduser($user,$pass,$cvsuser)———-增加一个用户,$user,$pass分别是用户名和密码，$cvsuser是cvs 用户的id

moduser($user,$pass,$cvsuser)———-修改$user的密码为$pass,$cvsuser是cvs 用户的id

deluser($user)———-删除指定的用户$user

verifypassword($user,$pass)———-检验用户密码

close()———-保存刚才的修改到password文件，关闭password文件，对文件解锁。

5.file/searchreplace

在文件中查找和替换字符串

使用方法：file_searchreplace($find, $replace, $files, $directories = , $include_subdir = 1, $ignore_lines = array())

生成并设置对象

$find

要查找的字符串，可以是字符串或规则表达式

$replace

要替换成的字符串，可以是字符串或规则表达式

$files

指定在哪些文件中进行替换操作，数组或者是以","分割的一个字符串

$directories

指定在那个目录中操作，可选，数组或者是以","分割的一个字符串

$include_subdir

如果是在目录中操作，指定是否在子目录中递归执行上述操作，可以是数值1或0。

$ignore_lines

指定要忽略的文件行，这是一个数组，任何以这个数组中任意一个字符串开始的文件行，都会忽略。

getnumoccurences()

返回已经执行了查找替换的次数

getlasterror()

返回上一次的错误信息

setfind($find)

设置要查找的字符串

setreplace($replace)

设置要替换的字符串

setfiles($files)

设置要执行替换操作的文件

setdirectories($directories)

设置要替换操作的目录

setincludesubdir($include_subdir)

设置是否在子目录中也执行查找替换

setignorelines($ignore_lines)

设置要忽略的行，只能在使用"normal"搜索函数的时候使用

setsearchfunction($search_function)

设置要使用的搜索函数，可以是下列参数：

normal 缺省值，使用file函数读入文件内容，然后使用str_replace逐行的进行替换。

quick 使用str_replace直接对整个文件进行替换

preg 使用preg_replace()来进行替换,你可以使用符合这个函数要求的规则表达式

ereg 使用ereg_replace()来进行替换,你可以使用符合这个函数要求的规则表达式

dosearch()

执行查找替换操作

require_once "file/searchreplace.php";

require_once "file/find";

//递归搜索当前目录

$find = new file_find;

$all_php_files = $find->search("*php",".");

if ( pear::iserror( $all_php_files ) ){

die "错误：" . $php_files->getmessage() ."\n" ;

}

if ( !count($all_php_file) ){

die "no php source files found!\n";

}

//将<?的php标志修正成 <?php,以符合pear标准

$replace = new file_searchreplace( ,<?php ,$all_php_files);

$replace->dosearch();

if ( $replace->getlasterror() ) {

die "发生错误:" . $replace->getlasterror() ;

} else {

echo "共成功替换了 " . $replace->getnumoccurences() . " 处。\n";

}

?>

6.html/form

这个模块可以让你快速地生成一个提交的窗体，而无需重新去编写html代码

使用方法：form::html_form($action, $method = get, $name = , $target = )

这个类的构造函数带有一些参数，这些参数和通常要编写html代码中的form参数是基本一致的，$action是在form中要提交到的url,$name可以指定form的名字，$target指定是否要新开窗口等等。

下面的addxxx系列方法，用于在这个form中添加相应的控件，控件的属性和html中的也相一致。

addtext($name, $title, $default, $size = html_form_text_size)

addcheckbox($name, $title, $default)

addtextarea($name, $title, $default,$width = html_form_textarea_wt,$height = html_form_textarea_ht)

addpassword($name, $title, $default, $size = html_form_passwd_size)

addsubmit($name = "submit", $title = "submit changes")

addreset($title = "discard changes")

addselect($name, $title, $entries, $default = , $size = 1,$blank = , $multiple = false, $attribs = )

addradio($name, $title, $value, $default)

addimage($name, $src)

addhidden($name, $value)

display()

显示这个窗体

require_once "html/form.php";

//创建并显示登录窗体

$myform = new html_form("./login.php");

$myform->addtext(username,用户名,);

$myform->addpasswd(passwd,登录密码,20);

$myform->addhidden(retry,1);

$myform->addsumit(login,登录);

$myform->display();

?>

7.mail/rfc822

检查一个输入的email是否合法，不是一件很轻松的事情，你也许尝试使用一些规则表达式来检查，但是并非那么方便有效。现在，如果要检查一系列的邮件地址是否符合rfc822标准，并把它们拆分成单独的email地址，你可以试试这个模块，非常简单实用。

使用方法：mail_rfc822($address = null, $default_domain = null, $nest_groups = null, $validate = null)

类构造函数，$address是你要验证的一系列的地址，$default_domain，指定缺省的域名或者主机名，$nest_groups 是否在输出结果中进行分组，以便显示$validate 是否需要验证每个原子parseaddresslist($address = null, $default_domain = null, $nest_groups = null, $validate = null)分析验证所给定的地址列表，如果地址有效，返回拆分后的单独的地址列表，如果发生错误，则返回错误信息。

require_once "mail/rfc822.php";

$rf822 = new mail_rfc822;

$result=$rf822->paseaddresslist(who;whoim@hotmail.com;test@test.ch);

if ( $rf822->error ){

echo "error:$result";

}else {

reset($result);

for ($i=0; $i< count($result);$i++){

echo "email:$result[$i]\n";

}

}

?>

8.mail/sendmail

sendmail是unix/linux上面最常用的mta,这个模块可以让你直接使用sendmail来发送信件

使用方法：mail_sendmail($params)

类构造函数，$params是一个关联数组,你可以设定sendmail的参数，目前只有sendmail_path是有效的，用来设置sendmail的路径 send($recipients, $headers, $body) 发送信件，$recipients是你的收件人的email地址，可以是单个，也可以是用;隔开的地址列表，只要符合rfc82标准就可以。$headers是你发送信件的信头，这是一个关联数租，数组的关键字是信头的名字(如subject)，数组值则是信头的值(比如：hello!)。处理后的信头将会是：subject:hello! $body 是信件的信体，包括所有的mime编码后的部分。如果成功，返回真，否则返回一个pear_error对象

require_once "mail/sendmail.php";

$sendmail = new mail_sendmail(array(sendmail_path=>/usr/local/bin/sendmail));

$header = array(subject=>hello,bcc=>test2@hotmail.com);

$body = this is a test message from nightsailer.com;

$result = $sendmail->send(test@nightsailer.com, $header, $body);

if ( pear::iserror($result) ){

echo "

发送失败

原因：".$result->getmessage()."
";

}else {

echo "

恭喜！发送成功！

";

}

?>

9.mail/smtp

对于现在有些站点不允许使用sendmail,那么如果你的php程序希望使用发信功能，就需要能够通过使用外部的smtp服务器来完成相应的功能了。

使用方法：使用上这个模块和mail::sendmail基本上是一样的。需要注意的是：这个模块需要使用net::smtp模块：mail_smtp($params)

$params的有效参数是：

host smtp的服务器地址，缺省是 localhost

port smtp服务端口，缺省是25

auth smtp是否需要授权验证，缺省是false

usename smtp授权的用户名

password smtp授权的密码

send($recipients, $headers, $body)

发送

require_once "mail/sendmail.php";

$params=array(host=>smtp.nightsailer.com,auth=true,

username=>night,password=>123456);

$sendmail = new mail_sendmail($params);

$header = array(subject=>hello,bcc=>test2@hotmail.com);

$body = this is a test message from nightsailer.com;

$result = $sendmail->send(test@nightsailer.com, $header, $body);

if ( pear::iserror($result) ){

echo "

发送失败

原因：".$result->getmessage()."
";

}else {

echo "

恭喜！发送成功！

";

}

?>

10.schedule/at

这个模块提供了unix上面的at程序的接口

add($cmd, $timespec, $queue = false, $mail = false )

追加一个at命令

这个方法将为at程序生成一个定制的作业:

$cmd 是你要运行的程序或脚本

$timespec 是作业开始执行的时间，格式与at要求的相同

$queue 可选参数，指明作业的队列名

$mail 可选参数，指明是否在作业结束后要发送email汇报运行结果

show($queue = false)

显示在at队列中的命令，返回一个关联数组，数组的key是作业的编号，相应的键值也是一个关联数组，内容是array(runtime，queue)$queue是一个可选参数，你可以用它限定只返回队列中队列名匹配$queue的作业列表

remove($job = false)

从at队列中删除指定的at作业$job是要删除的作业编号,如果，成功，返回true,否则返回false

require_once "schedule/at.php";

$at = new schedule_at();

//生成并追加一个作业

$result = $at->add (find / -type file -name core -exec rm -f {} \;,00:00);

if ( pear::is_error($result) ) {

echo "无法追加作业！\n";

echo "原因：$result->getmessage() \n";

exit;

}

//显示当前at队列

$queue = $at->show();

if ( pear::iserror($queue) ) {

echo "发生错误！\n";

echo "原因：" . queue->getmessage(). "\n";

exit;

}

reset( $queue );

while ( list($job, $cmd) = each $queue ){

echo "[$job]" . $cmd[runtime] . "-" .$cmd[queue]；

echo "\n"

}

?>

以上是一些pear模块的使用，更为详细的说明需要你自己去察看这些模块的源文件，或者你可以使用phpdoc自动生成这些模块的api文档。关于phpdoc,我们将在下篇详细讨论。

四、资源

pear cvs 你可以从这里获得最新的pear源码

hoder 项目

phpdoc 主页