在上一篇，我們介紹了PEAR的概念，編碼規(guī)則，簡單使用方法，你可能對它有了一個初步的了解。這次，我們將介紹現(xiàn)有的PEAR庫中的一些模塊的功能和它的使用。
一、命名約定
在了解現(xiàn)有的pear模塊之前，我們先了解一下PEAR的組織分類方式和命名的約定。PEAR中的模塊的組織方式和CPAN類似，每個模塊的相關(guān)文件是放在自己的分類目錄下面，有的則是直接放在pear的根目錄下面（單個文件）。由于PEAR沒有象java那樣的名字空間，所以你的類名應(yīng)該能夠體現(xiàn)你的模塊名或者父類名之間的關(guān)系，守一定的約定，比如，你的模塊名："Mp3/common",那么，你的php文件應(yīng)該位于：Mp3/common.php,你這個模塊的類名應(yīng)該是：Mp3_common。一般來說，如果你的模塊是根據(jù)現(xiàn)有的某個模塊改進(jìn)而來的，那么建議把你的和現(xiàn)有的那個模塊放在同一個目錄下面。如果你設(shè)計的是一個新的類和模塊，你可以自己建立一個新的目錄，或者是按照相似的用途放在同樣的目錄下面。比如，你新編寫了一個模塊，用于處理日志的，建議你把它放在Log/下面，表示是用于Log處理的應(yīng)用模塊；如果新的模塊是用于處理mp3的，那么你可以建立一個新的目錄mp3,放在mp3目錄下面。

二、現(xiàn)有的PEAR模塊
由于Pear的大多數(shù)模塊仍處于開發(fā)當(dāng)中，因此，這里列舉的是隨著php4.05一起發(fā)布的pear中的模塊，需要注意的是，一些抽象類或者是基類(如Mail.php,Log.php,Cache.php)沒有列舉出來，我們只是關(guān)注具有具體功能的模塊。下面是這些模塊的一個列表：

Benchmark/Timer 測試你的一段php代碼的運行效率
Benchmark/Benchmark_Iterate 測試你某個函數(shù)循環(huán)執(zhí)行時的性能
Cache/Output 可以將你的php腳本的輸出進(jìn)行緩存，可以使用多種方式緩存（存在文件，數(shù)據(jù)庫或者是共享內(nèi)存中）,如果使用這個模塊有可能增大服務(wù)器的負(fù)載，所以，如果你想通過動態(tài)腳本的緩存來提供效率，不妨使用Zend optimize,這個模塊未必適合
Cache/Graphics 可以將你需要動態(tài)輸出的圖片進(jìn)行緩存
Console/Getopt 命令行參數(shù)的處理模塊
CMD 一個虛擬的shell，可以用它來運行一些系統(tǒng)的命令
Crypt/CBC 實現(xiàn)Perl Crypt::CBC 模塊的仿真
Crypt/HCEMD5 實現(xiàn)Perl Crypt::HCE_MD5 模塊的功能

Date/Calc 實現(xiàn)日期的相關(guān)操作
Date/Human Human歷法的轉(zhuǎn)換
DB 提供統(tǒng)一的、抽象的數(shù)據(jù)庫操作層，后端支持多種數(shù)據(jù)庫
File/Find 文件查找
File/Passwd 操縱password類的文件，如password,httppass,cvspassword
File/SearchReplace 在文件中查找替換字符串
HTML/Form 可以在html中快速地創(chuàng)建form
HTML/IT 實現(xiàn)模板定制，動態(tài)生成頁面的功能，類似phplib中的模板功能，但是要簡單易用
HTML/ITX 實現(xiàn)對IT的擴(kuò)展功能，可以更加靈活地定制你的模板，實現(xiàn)更復(fù)雜的操作
HTML/Processor XML_Parser的擴(kuò)展，使之可以應(yīng)用于html文件的操作
HTTP/Compress 用于Php 輸出緩沖機制的一個包裝類，同時可以對緩沖的內(nèi)容進(jìn)行壓縮存儲
Image/Remote 無需把整個圖片都下載到本地就可以獲取遠(yuǎn)端系統(tǒng)的圖片的信息，
Log/composite Horde對log抽象類做的一個擴(kuò)展，可以使多個日志處理對象能夠獲得同一個日志事件。注意，Log目錄下面的模塊都是Horde項目的一部分，大部分都是抽象的超類
Log/file 將日志信息寫入文件
Log/mcal 將信息發(fā)送到本地或遠(yuǎn)端的日程管理軟件-mcal的數(shù)據(jù)庫中
Log/observer Horder中Observer的一個超類
Log/sql 將日志信息發(fā)送到sql數(shù)據(jù)庫中
Log/syslog 將信息發(fā)送到syslog中
Mail/RFC822 檢查一個email地址是否是合法的rf822 email地址
Mail/sendmail 使用sendmail來發(fā)送信件
Mail/smtp 使用smtp服務(wù)器來發(fā)送信件
Math/Fraction 處理分形的數(shù)學(xué)計算
Math/Util 計算最大公約數(shù)
NET/Curl 對php的Curl擴(kuò)展所作的面向?qū)ο蟮陌�裝
NET/Dig 操縱dig，進(jìn)行dns相關(guān)的查詢操作
NET/SMTP 使用NET/Socket實現(xiàn)SMTP協(xié)議
NET/Socket 通用的Socket類，實現(xiàn)了常用的socket操作的包裝
Numbers/Roman 阿拉伯?dāng)?shù)字和羅馬數(shù)字的相互轉(zhuǎn)換
Payment/Verisign 實現(xiàn)和Verisign支付網(wǎng)關(guān)的交互
Pear 提供Pear模塊的2個基本類，PEAR 和PEARError類
PEAR/Installer pear的安裝類，提供Perl中的CPAN模塊類似的功能
PHPDoc 從php代碼中自動生成API文檔
Schedule/at 和Unix 上的AT守護(hù)進(jìn)程進(jìn)行交互
XML/Parser 基于php的xml擴(kuò)展所作的xml的解析器
XML/Render 將xml文檔生成其它的格式（html,pdf),這只是一個抽象類，在最新的pear cvs代碼中已經(jīng)有了html的實現(xiàn)
XML/RPC 用php實現(xiàn)xml-rpc的一個抽象類，在最新的pear cvs代碼中已經(jīng)有了xml/RPC/Server的實現(xiàn)

三、主要模塊使用簡介
現(xiàn)在我們將簡單地介紹一些比較常用的，而且功能已經(jīng)比較完善和穩(wěn)定，可以用于“實戰(zhàn)“模塊，其中對于幾個功能很強大的模塊Db,phpdoc,XML_Parser，IT,ITX將在以后的文章中單獨介紹。

1.PEAR/Installer
這個模塊屬于pear本身的核心模塊，它完成pear其它模塊的安裝和維護(hù)工作，類似perl中的cpan模塊的功能，不過目前只有install功能，其它諸如查詢，檢查依賴性等等都沒有完成，pear本身也沒有類似 cpan 那樣的開放的站點，不過隨著參與pear的開發(fā)人員的不斷增加，一切都會有的。

使用語法：PEAR_Installer::installer($file)
$file是需要安裝的模塊文件，可以是本地文件，也可以是遠(yuǎn)程的文件，如http://或者是ftp，installer會自動下載到本地。文件一般使用gzip打包，其中要包括一個package.xml文件，用于描述你的這個模塊的相關(guān)信息，如包含的文件，相互依賴性等，此外當(dāng)然要包括你的模塊的php文件。pacakage.xml的DTD文件在pear目錄下面，名字是package.dtd.

<?php
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
雖然大多數(shù)的php應(yīng)用很少調(diào)用系統(tǒng)命令，因為這些應(yīng)用都是基于web的，從運行效率和系統(tǒng)的負(fù)載考慮，都要避免直接調(diào)用系統(tǒng)命令，不過，在有些特殊的應(yīng)用或者是你愿意把php作為一個shell工具的時候，調(diào)用現(xiàn)有的系統(tǒng)工具就是不可避免的了。CMD可以讓你很方便地執(zhí)行一系列的系統(tǒng)命令。

使用語法：setOption ($option, $setting)
設(shè)置參數(shù)$options為$setting

$options是一個常量，它可以是以下值：
CMD_SHUTDOWN : 通過shutdown函數(shù)來執(zhí)行命令
CMD_SHELL : 指定shell的路徑
CMD_OUTPUT : 是否屏蔽命令的標(biāo)準(zhǔn)輸出
CMD_NOHUP : 使用nohup后臺執(zhí)行命令
CMD_VERBOSE : 將錯誤打印到標(biāo)準(zhǔn)輸出



command($command)
添加需要執(zhí)行的命令，$command可以是數(shù)組或普通的字符串

exec()
執(zhí)行已經(jīng)添加的命令

<?php
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個模塊可以讓你測試你的代碼的運行效率如何，我認(rèn)為這對于系統(tǒng)調(diào)試很有用：你可以嘗試不同的算法，仔細(xì)考察每種算法需要運行的時間，然后選擇最佳的方式。Benchmark/Timer測試運行中在2個不同的時間點的時間差，Benchmark/Iterate則是對Timer擴(kuò)展，測試運行某段代碼（函數(shù)）n次所需要的時間。

使用語法：Benchmark/Timer

Timer::setMarker($name) 設(shè)置當(dāng)前時間點為$name
Timer::start() 開始測試
Timer::stop() 停止測試
Timer::timeElapsed($start = 'Start', $end = 'Stop') 計算$start和$end 這2個時間點的時間差
Timer::getProfiling() 返回start 和 stop 之間所耗用的時間
<?php
require_once "Benchmark/Timer.php";
$timer = new Benchmark_Timer;

$timer->start();
$timer->setMarker('Marker 1');
$timer->stop();

$profiling = $timer->getProfiling();
?>





Benchmark/Iterate

Iterate::run()
循環(huán)運行指定的函數(shù)。這是一個具有可變參數(shù)的方法，第一個參數(shù)是要循環(huán)的次數(shù)，第2個參數(shù)是要執(zhí)行的函數(shù)，第3個參數(shù)起則是要傳遞給測試函數(shù)的參數(shù)。

Iterate::get()
返回測試所用的時間

<?php
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的目錄和文件，返回匹配的文件和目錄名數(shù)組

&search ($pattern, $directory, $type='php')
在$directory中搜索符合$pattern規(guī)則的文件，返回匹配的文件名數(shù)組（注意，只是文件，不包括子目錄）。$pattern是要指定的搜索條件，一般是規(guī)則表達(dá)式，$patten_type指定使用什么模式的規(guī)則表達(dá)式，缺省是php模式，你也可以指定"perl"來使用perl模式的規(guī)則表達(dá)式

提示：search和glob不同的是，glob并不遞歸搜索子目錄，而search則遞歸搜索子目錄。

<?php
require_once "File/Find.php";
$find = new File_Find;
//搜索當(dāng)前目錄
$php_files = $find->glob("*php",".");
if ( PEAR::isError( $php_files ) ){
die "錯誤：" . $php_files->getMessage() ."\n" ;
}
//遞歸搜索當(dāng)前目錄
$all_php_files = $find->search("*php",".");
if ( PEAR::isError( $all_php_files ) ){
die "錯誤：" . $php_files->getMessage() ."\n" ;
}
?>





4.File/Passwd
操縱password格式的文件，類似如標(biāo)準(zhǔn)的unix password,apache 的.htppass,cvs的pserver password文件。從現(xiàn)有版本的代碼來看，它還不能真正地用來維護(hù)這些passwd文件（比如并不支持shadow)。不過你可以用來創(chuàng)建類似的密碼文件，當(dāng)然，安全性不會很高。

使用方法：
File_Passwd($file,$lock=0)----------創(chuàng)建對象，$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文件，關(guān)閉password文件，對文件解鎖。
5.File/SearchReplace
在文件中查找和替換字符串

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

生成并設(shè)置對象

$find
要查找的字符串，可以是字符串或規(guī)則表達(dá)式

$replace
要替換成的字符串，可以是字符串或規(guī)則表達(dá)式

$files
指定在哪些文件中進(jìn)行替換操作，數(shù)組或者是以","分割的一個字符串

$directories
指定在那個目錄中操作，可選，數(shù)組或者是以","分割的一個字符串

$include_subdir
如果是在目錄中操作，指定是否在子目錄中遞歸執(zhí)行上述操作，可以是數(shù)值1或0。

$ignore_lines
指定要忽略的文件行，這是一個數(shù)組，任何以這個數(shù)組中任意一個字符串開始的文件行，都會忽略。

getNumOccurences()
返回已經(jīng)執(zhí)行了查找替換的次數(shù)

getLastError()
返回上一次的錯誤信息

setFind($find)
設(shè)置要查找的字符串

setReplace($replace)
設(shè)置要替換的字符串

setFiles($files)
設(shè)置要執(zhí)行替換操作的文件

setDirectories($directories)
設(shè)置要替換操作的目錄

setIncludeSubdir($include_subdir)
設(shè)置是否在子目錄中也執(zhí)行查找替換

setIgnoreLines($ignore_lines)
設(shè)置要忽略的行，只能在使用"normal"搜索函數(shù)的時候使用

setSearchFunction($search_function)
設(shè)置要使用的搜索函數(shù)，可以是下列參數(shù)：

normal 缺省值，使用file函數(shù)讀入文件內(nèi)容，然后使用str_replace逐行的進(jìn)行替換。
quick 使用str_replace直接對整個文件進(jìn)行替換
preg 使用preg_replace()來進(jìn)行替換,你可以使用符合這個函數(shù)要求的規(guī)則表達(dá)式
ereg 使用ereg_replace()來進(jìn)行替換,你可以使用符合這個函數(shù)要求的規(guī)則表達(dá)式



doSearch()
執(zhí)行查找替換操作

<?php
require_once "File/SearchReplace.php";
require_once "File/Find";

//遞歸搜索當(dāng)前目錄
$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標(biāo)志修正成<?php,以符合pear標(biāo)準(zhǔn)
$replace = new File_SearchReplace('<? ','<?php ',$all_php_files);
$replace->doSearch();
if ( $replace->getLastError() ) {
die "發(fā)生錯誤:" . $replace->getLastError() ;
} else {
echo "共成功替換了 " . $replace->getNumOccurences() . " 處。\n";
}
?>





6.HTML/Form
這個模塊可以讓你快速地生成一個提交的窗體，而無需重新去編寫html代碼

使用方法：Form::HTML_Form($action, $method = 'GET', $name = '', $target = '')

這個類的構(gòu)造函數(shù)帶有一些參數(shù)，這些參數(shù)和通常要編寫html代碼中的form參數(shù)是基本一致的，$action是在form中要提交到的URL,$name可以指定form的名字，$target指定是否要新開窗口等等。

下面的addXXX系列方法，用于在這個form中添加相應(yīng)的控件，控件的屬性和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()
顯示這個窗體

<?php
require_once "HTML/Form.php";
//創(chuàng)建并顯示登錄窗體
$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是否合法，不是一件很輕松的事情，你也許嘗試使用一些規(guī)則表達(dá)式來檢查，但是并非那么方便有效。現(xiàn)在，如果要檢查一系列的郵件地址是否符合RFC822標(biāo)準(zhǔn)，并把它們拆分成單獨的email地址，你可以試試這個模塊，非常簡單實用。

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

類構(gòu)造函數(shù)，$address是你要驗證的一系列的地址，$default_domain，指定缺省的域名或者主機名，$nest_groups 是否在輸出結(jié)果中進(jìn)行分組，以便顯示$validate 是否需要驗證每個原子parseAddressList($address = null, $default_domain = null, $nest_groups = null, $validate = null)分析驗證所給定的地址列表，如果地址有效，返回拆分后的單獨的地址列表，如果發(fā)生錯誤，則返回錯誤信息。

<?php
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來發(fā)送信件

使用方法：Mail_sendmail($params)

類構(gòu)造函數(shù)，$params是一個關(guān)聯(lián)數(shù)組,你可以設(shè)定sendmail的參數(shù)，目前只有'sendmail_path'是有效的，用來設(shè)置sendmail的路徑 send($recipients, $headers, $body) 發(fā)送信件，$recipients是你的收件人的email地址，可以是單個，也可以是用;隔開的地址列表，只要符合RFC82標(biāo)準(zhǔn)就可以。$headers是你發(fā)送信件的信頭，這是一個關(guān)聯(lián)數(shù)租，數(shù)組的關(guān)鍵字是信頭的名字（如Subject)，數(shù)組值則是信頭的值(比如：Hello!)。處理后的信頭將會是：Subject:Hello! $body 是信件的信體，包括所有的MIME編碼后的部分。如果成功，返回真，否則返回一個PEAR_Error對象

<?php
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 "<h1> 發(fā)送失敗 </h1><br>原因：".$result->getMessage()."<br>";
}else {
echo "<h1>恭喜！發(fā)送成功！</h1><br>";
}
?>





9.Mail/smtp
對于現(xiàn)在有些站點不允許使用sendmail,那么如果你的php程序希望使用發(fā)信功能，就需要能夠通過使用外部的smtp服務(wù)器來完成相應(yīng)的功能了。

使用方法：使用上這個模塊和Mail::sendmail基本上是一樣的。需要注意的是：這個模塊需要使用Net::SMTP模塊：Mail_smtp($params)
$params的有效參數(shù)是：
'host' smtp的服務(wù)器地址，缺省是 localhost
'port' smtp服務(wù)端口，缺省是25
'auth' smtp是否需要授權(quán)驗證，缺省是false
'usename' smtp授權(quán)的用戶名
'password' smtp授權(quán)的密碼

send($recipients, $headers, $body)
發(fā)送

<?php
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 "<h1> 發(fā)送失敗 </h1><br>原因：".$result->getMessage()."<br>";
}else {
echo "<h1>恭喜！發(fā)送成功！</h1><br>";
}
?>





10.Schedule/At
這個模塊提供了unix上面的at程序的接口

add($cmd, $timespec, $queue = false, $mail = false )
追加一個at命令

這個方法將為at程序生成一個定制的作業(yè):
$cmd 是你要運行的程序或腳本
$timespec 是作業(yè)開始執(zhí)行的時間，格式與at要求的相同
$queue 可選參數(shù)，指明作業(yè)的隊列名
$mail 可選參數(shù)，指明是否在作業(yè)結(jié)束后要發(fā)送email匯報運行結(jié)果

show($queue = false)
顯示在at隊列中的命令，返回一個關(guān)聯(lián)數(shù)組，數(shù)組的key是作業(yè)的編號，相應(yīng)的鍵值也是一個關(guān)聯(lián)數(shù)組，內(nèi)容是array（runtime，queue）$queue是一個可選參數(shù)，你可以用它限定只返回隊列中隊列名匹配$queue的作業(yè)列表

remove($job = false)
從at隊列中刪除指定的at作業(yè)$job是要刪除的作業(yè)編號,如果，成功，返回true,否則返回false

<?php
require_once "Schedule/At.php";
$at = new Schedule_At();
//生成并追加一個作業(yè)
$result = $at->add ('find / -type file -name core -exec rm -f {} \;','00:00');
if ( PEAR::is_Error($result) ) {
echo "無法追加作業(yè)！\n";
echo "原因：$result->getMessage() \n";
exit;
}
//顯示當(dāng)前at隊列
$queue = $at->show();
if ( PEAR::isError($queue) ) {
echo "發(fā)生錯誤！\n";
echo "原因：" . queue->getMessage(). "\n";
exit;
}
reset( $queue );
while ( list($job, $cmd) = each $queue ){
echo "[$job]" . $cmd['runtime'] . "-" .$cmd['queue']；
echo "\n"
}
?>





以上是一些PEAR模塊的使用，更為詳細(xì)的說明需要你自己去察看這些模塊的源文件，或者你可以使用phpdoc自動生成這些模塊的api文檔。關(guān)于phpdoc,我們將在下篇詳細(xì)討論。

四、資源
PEAR CVS 你可以從這里獲得最新的PEAR源碼
Hoder 項目
PHPDoc 主頁