最近接到一個任務是這樣的，一臺solaris服務器上需要運行一個腳本，每天統計mysql數據庫中的數據并生成報表。本來這是一個可以就事論事的小項目，但是為了以后的靈活和可擴展性，我設計了一個使用xml做統計模版配置的方案。由于在bash下不太好實現xml的訪問，因此我考慮用perl來實現這個腳本。
perl是一個強大的腳本語言，本來是設計應用在文本處理方面的，但是后來發展的越來越強大，已經可以處理網絡、圖形、系統、文件等等各個方面的內容。perl本身內置了豐富的操作符和函數，外部也有多年積累下來的大量模塊。但是不知道什么原因在國內好像很少有人用。關于perl的歷史我就不多說了，有興趣可以上網查一下。有一點要說的是，目前perl最新的版本是5.8.6，而perl6雖然已經設計很久了但是由于自舉問題目前還沒有一個可用的版本。為了解決這個問題，臺灣的唐宗漢發起的pugs項目正在快速的實施中，可能很快就能有結果了，有興趣的朋友可以多多關注一下，也許還可以為開源世界做點貢獻。
雖然很早以前就了解過perl，但是從來就沒有實際的用它做過項目，因此這次的實現是一個邊學邊做的過程。作為一個程序員，學習一種新的語言總會有一點慣性思維，加之perl在語法上與c語言比較類似。因此我想在這片文章中主要以c為背景做一個比較。這種比較不是比較語言上的優劣，而是說明同樣的功能如何在perl中實現以及之間的區別。限于篇幅，具體的技術實現的細節我就不在這里多說了，你可以在末尾的資源一節中找到很多相關的文章。如果你沒有接觸過perl，我想你可能更希望看到學習perl的過程中可能會遇到的一些問題以及解決方法。
工欲善其事，必先利其器
要寫代碼，首先至少得有一個編輯器。perl是跨平臺的一種解釋型語言，可以在unix/linux/windows/mac等平臺上運行。具體對應平臺上的編輯器，最簡單的方案是unix下用vi，windows下用ultraedit。當然也有商業化的ide，不過我嘗試了一下發現并不是那么的好用，因此我在windows平臺上以ultraedit作為編輯環境，完成后移植到solaris平臺上。
關于環境的搭建，有這樣幾個需要注意的地方：
1、 windows平臺下對應的是activeperl，可以免費下載。
2、 去ue的網站上下載perl的autocomp文件，可以實現自動完成功能。
3、 下載perl對應的語法加亮的tag文件并加入到ue中，可以更塊的發現拼寫錯誤。
4、 在ue設置一個快捷工具，命令行為c:/perl/bin/perl.exe "%f"（捕獲輸出），可以實現快速運行并顯示結果。
5、 如果你不喜歡ue，那么我推薦source insight
巧婦難為無米之炊
起始從某種角度來說，程序員和廚子是一樣的。要做出一桌大餐來，首先得看看手上有什么原料，然后才能琢磨一下用這些東西能做出什么好吃的來。或者說想做什么東西，得先備好料才行。
看看我們現在都有什么：一個編輯器，一個perl的開發環境，還有一個聰明的腦袋。這個任務中，我要處理命令行參數、訪問mysql數據庫(sql)、讀寫xml的配置文件以及輸出一個固定格式的報表文件。
好了，去查查資料，看看訪問數據庫和讀寫xml都需要什么東西。正如同c語言本身帶了很多標準函數庫一樣，perl本身也有函數庫，并把這些函數庫稱為module（模塊）。查了一下資料，發現要訪問mysql數據庫需要dbi和dbd::mysql兩個模塊，那么去哪里找這些模塊呢。這里給大家介紹一個perl的module集散地 www.cpan.org，這里包含了八千多個module，可以從這里下載到幾乎各種各樣的module。可以手工下載后安裝，也可以使用工具來自動安裝。在windows下是可以使用ppm進行自動安裝，例如dbd的安裝過程如下：
c:/>ppm
…
ppm> search dbi
searching in active repositories
… 一大堆與dbi相關的包的列表，其中就包括dbi這個包
ppm>install dbi
…
ppm>install dbd::mysql 如果知道模塊的名字也可以直接安裝
…
ppm>quit
如此就安裝完成了。附帶說一下，linux下沒有ppm，但是有類似的方式。輸入命令行
perl –mcpan –e shell
然后install dbi; install dbd-mysql，和上面的操作幾乎是一樣的。
提示：如果是在linux下安裝dbd::mysql模塊，需要把mysql的bin目錄包含在環境變量path中，否則會提示找不到mysql_config文件。mysql一般是安裝在/usr/local/mysql下，因此可以通過執行命令行path=$path:/usr/local/bin/mysql/bin來將此路徑加入到環境變量中。
訪問xml有幾種包可以選擇：使用dom和simple模塊。simple模塊是把xml用perl的數組方式表示，而dom是w3c維護的一個基于樹的xml文檔標準。具體用哪種就看個人的需要了。我使用的是dom，因此要安裝xml-dom包，方法同上。
芝麻開門
說起編程語言，簡單的來說無非就是這樣幾個必不可少的基本元素：變量、數據、表達式、流程控制語句（包括條件、分支、循環)、函數、對象。具體到語言上，大部分的內容只是表達的形式不同而已。而perl與c又有什么區別呢？
首先要知道，perl是一種腳本語言。所謂的腳本，就是沒有主函數，從最開始一行一行的按照順序解釋執行（老版basic不也是如此嗎）。因此，盡管把你的思路轉化為流程用perl表達出來吧。
其次，perl的設計中參考了很多語言的長處，并避免了設計上的缺陷。因此perl的很多語法你可能都會覺得似曾相識。我把perl的語法總結了一下，和c語言做了一個簡單的對比表格。表格左右兩邊的語句是c和perl對應表達同一個功能各自的不同方式。如果讀者有ｃ語言的經驗，相信看到這個對比可以很快的上手吧？
語法元素 | c | perl | perl語法說明 |
注釋 | /* … */ | # … | 只支持單行注釋 |
變量 | int a, b, c; char c=’a’; int x[10]; | my ($a, $b, $c); my $c='a'; my @x; my %h; | 聲明使用my標示 表示值的變量以$開頭，表示數組的變量以@開頭，表示哈希表的變量以%開頭。 聲明可以省略(不建議) |
字符串 | char* h1=”hello/n”; char* h2=”hello//n”; | $h1=”hello/n”; $h2=’hello/n’; | 雙引號解釋內部的/n，而單引號則不解釋 |
一維數組 | int arr[10]; arr[0]=0; for(i=0;i<10;i++) arr[i]=i; | my @arr; $arr[0]=0; @arr[3..5]=(3..5); | 數組聲明以@標示 動態數組，不需要指定大小 數組下標從０開始 訪問數組元素值的時候，要以$開頭表示訪問的是數值 [3..5]表示數組中下標為3到5之間的元素組成的數組 數組之間可以直接賦值 |
多維數組 | int arr[10][10]; arr[0][1]=9; | my @arr; $arr[0][1]=9; | perl并不直接支持多維數組，而是以數組引用的方式間接支持。例如arr[0]的內容就是一個數組的引用地址。 |
指針 | char c; int* x=&c; c='a'; printf(*x); | my $c; my $x=/$c; $c='a'; print $x; | /和c中的&類似，意思是取引用 |
void hello() { printf(“hello/n”); } void (*hi)()=hello; (*p)(); | sub hello{ print "hello/n"; } my $hi = *hello; &$hi; | &表示調用函數 *取函數的代碼地址 不必用括號把參數括起來 調用時的括號也是可選的 | |
條件語句 | if (x>0) x=0; x>0 ? x=0 : ; | if ($x>0) { $x=0; } $x=0 if $x>0; $x=0 unless $x<=0; $x>0 ? $x=0 : ; | if 結構可以反轉，意義不變，注意前句沒有分號。 顧名思義, unless是“除非”的意思。這里的四個表達方式是等價的。注意第一種方式中，條件部分的圓括號和語句部分的花括號是不可省略的。 |
循環語句 | 略 | foreach (@arry) foreach my $key(@ary) foreach $count (1..10) | for/while的語法都和c類似。 foreach關鍵字也可以用for，意義不變。 |
函數 | int max(int x, int y) { return x>y?x:y; }
int n=max(1,2); | sub max { my ($x, $y)[email protected]_; return $x>$y?$x:$y; } my $n=max(1,2) | 注意下劃線”_”也是一個合法的變量名。而@_是perl內置的一個數組，內容為函數的參數。 my ($x, $y) 表示聲明了一個有兩個元素的數組，并將兩個元素映射到$x和$y上。 ($x,$y)[email protected]_;則表示兩個數組之間的復制，@_中對應的元素的值就賦值給了$x和$y.這是一個簡便的寫法，也可以這樣寫 my $x=$_[0]; my $y=$_[1]; return是可選的，默認返回最后一個表達式的值 |
語法約束 | 1. 編譯時打開編譯器所有的警告選項 2. 使用lint工具 | 3. perl –w myprogram.pl 打開運行警告開關，如果運行時perl檢查到了可能的錯誤，會顯示警告信息，否則它默認是什么也不提示繼續執行。 4. #!/usr/bin/perl –w 在代碼文件第一行中加入-w選項開關 5. use strict; 使用嚴格語法約束 | |
運行 | 編譯后直接執行 | 1. perl myprogram.pl 手工執行 2. #!/usr/bin/perl unix下在代碼第一行加入，然后給文件加上可執行的屬性 chmod +x myprogram.pl，之后就可以用./myprogram.pl命令來運行。 3. windows下，安裝activeperl的時候，已經將.pl后綴的文件和perl的解釋程序關聯起來了，因此直接雙擊文件圖標就可以運行。 |
從框架開始
perl有很多表達方式，我們可以選擇一種自己熟悉、容易理解的方式來寫perl的程序。例如，你是一個經驗豐富的c程序員，那么你可以選擇以c的風格來寫perl程序。下面是一個小小的樣板框架
#!/usr/bin/perl -w
use strict;
# 程序開始的第一行語句，調用main函數
main();
# 定義main函數
sub main
{
…
}
在這個框架下面，你幾乎可以容易就開始你的perl開發了。如果需要處理命令行參數，就可以稍微的擴展一下這個框架。
#!/usr/bin/perl -w
use strict;
use getopt::std;
main();
my $configfile;
sub processoptions
{
my $version = '1.0.0';
my $usage = "pp.pl [-v | -c configfile]/n";
my $opts={};
die $usage unless( getopts("c:v", $opts) );
die $version if ($opts->{'v'});
$configfile=$opts->{'c'} ? $opts->{'c'} : 'config.xml' ;
}
sub main
{
processoptions();
print $configfile;
…
}
實際上，剩余的工作和以往的工作差不多了，編寫一個一個的函數，并實現你的業務邏輯。對于你這樣一個聰明的程序員來說，學會perl是一個很容易的事情。
常見問題
以我的學習經驗來看，在開發的過程中可能有一些常用但是很分散的細節問題會讓你感到困惑。
1、 程序的入口參數怎么取？
內置數組@argv包含了所有的運行參數。可以打印出來看看 print @argv;
2、 函數如何傳參數、取參數？
每個函數內部都有一個內置的數組 @_ ，這個數組的元素就是函數的參數。例如傳入的第一個參數就是$_[0]，第二個是$_[1]。唔，如你所見，perl的函數參數就是c中的動態參數。
3、 默認變量是什么
這個可能會把你的頭搞暈。有一個內置變量 $_ ，
4、 顯示消息、退出常見的簡單寫法
die ‘error on program’;
也可以在條件不滿足的情況下使用
die ‘configuration error’ unless($doc->getdocumentelement);
5、 格式化輸出
可以用簡單的print語句進行一般的輸出操作，如果需要復雜的格式化輸出，可以使用printf語句……跟c的用法幾乎是一樣的。
printf("pi=%.6f", 355/113);
6、 =>是什么東西?
在使用hash表的時候，可以經常看到=>這個符號。例如這樣的一個定義:
my $account={
'simon'=> '[email protected]',
'jesse'=> '[email protected]'
};
其實，=>符號跟逗號”,”是等價的。perl里面的hash表事實上是一個數組，只是把奇數位元素看做是key（鍵），而把偶數位的元素看做是value（值）。
7、 關于引用的一點說明
perl的引用類似c的指針，所謂的引用事實上就是地址。取一個變量的地址用反斜杠”/”操作符，例如 $p=/$x; 那么$p就是一個指向$x變量的指針。要引用指針的值，使用”$”操作符，例如 print $$p; 就是打印$x的值。
引用不單單可以引用變量，也可以引用數組、hash表、函數，取函數的地址可以使用*操作符。
還能做什么
perl作為一個功能強大的腳本語言，可以應用在web 編程、數據庫、xml、系統管理、圖形圖像、自然語言、壓縮、加密、郵件系統、軟件測試等各個地方。在cpan上，你可以找到各種各樣你所需要的模塊支持。例如，你可以：
編寫系統管理的腳本
和apache結合起來，編寫cgi程序
編寫動態網頁
使用net命名空間下的類編寫網絡應用程序
使用authen::captcha模塊實現提交時的驗證碼的功能
使用storable模塊處理perl的各種數據結構
使用gd/image::magick模塊處理圖形
等等…
資源
www.perl.org perl的官方站點
www.perl.com o’reily 維護的關于perl的站點
www.cpan.org perl的module資源大全
www.perlchina.com 中國perl協會
www.pm.org 世界各地的perl用戶組織
www.perlmonks.org 用perl寫詩 j
http://www-128.ibm.com/developerworks/cn/linux/sdk/perl/ ibm社區的perl系列文章
新聞熱點
疑難解答
