題記：把這篇文章發(fā)到c++專區(qū)，沒有嘩眾取寵的意思，這里我想套用阿里巴巴一個資深CTO的話：程序員的知識結(jié)構(gòu)應(yīng)該是T形的，要精通一到兩門編程語言作為主干，而在頂端則是要多種語言結(jié)合使用，也就是我們常說的深度和廣度，那么為什么要學(xué)習(xí)Perl，我相信有過Perl經(jīng)驗的程序員一定會對這種腳本語言語義的豐富和強大的字符處理能力有深刻的印象。的確，對于習(xí)慣了靜態(tài)語言的我們，Perl是個全新的世界，沒有變量聲明，沒有main函數(shù)，比起c++, 我覺得perl更向是一個不羈的頑童，perl的語法中充滿了freedom的思想
假設(shè)有以下一個任務(wù)，編一個函數(shù)將一個文件中所有在尖括號中間的字符由小寫轉(zhuǎn)換為大寫，這個工作如果用c++來完成的話可能得費一番心思，來看看Perl的解決方案吧
1
#! perl -w
2&replaceString($ARGV[0];);
3
4sub replaceString
5
{
6
open FILE,"< $_[0]"
7 or die "can' open file:$!";
8 while(<FILE>)
9
{
10 s/\w*(<[^>]+>)/\U$1/g;
11 print ;
12
}
13
}
以上是perl的解決方案，第一句話是perl的調(diào)用語句，對于windows系統(tǒng)意義不大，第二句話是將讀入的第一個參數(shù)傳入子例程replaceString，數(shù)組ARGV用來存放命令行傳入的參數(shù)，接下來就是子例程，其中的核心語句就是s/\w*(<[^>]+>)/\U$1/g；向天書一樣，不過如果你對正則表達(dá)式熟悉的，也可以看出一些門道來，這也正是perl語言的強大之處，對于正則表達(dá)式的原生支持
學(xué)習(xí)perl，首先要忘掉C++古板的作風(fēng)：
1，這里沒有main函數(shù)，perl不會生成所謂的可執(zhí)行文件，源文件就是可執(zhí)行文件，這句話是說給沒有腳本經(jīng)驗的朋友們的聽的，解釋型語言編譯之后走哪算哪，沒有所謂的入口。
2.perl中常用的只有3種常量類型，標(biāo)量、數(shù)組和散列
標(biāo)量包括常用的字符串，數(shù)字，類型是不確定的，perl會根據(jù)你的上下文情景做“自然的”轉(zhuǎn)換，聲明標(biāo)量使用$前綴
例如你可以寫出以下語句，輕松得到結(jié)果
$num1=5;
$num2=5**2;
print "the square of $num1 is $num2";
(結(jié)果你可以自己試試看)
而數(shù)組則是perl另一個靈活強大的類型，聲明數(shù)組使用@前綴，還是以一個例子說明吧
1#! perl -w
2 $sentence = "I love c++ and perl";
3 @words = split " ",$sentence;
4 print "the sentence \"@words\" has ".@words." words\n";
輸出是the sentence "I love c++ and perl" has 5 words，是的，你也許意識到，perl自動根據(jù)你需要做了轉(zhuǎn)換，這部分涉及標(biāo)量上下文和列表上下文（超出本文討論范圍，有興趣可以深入研究），是perl的一個重要特性。然而perl 數(shù)組還有許多強大特性，例如，將以上例子稍作修改如下：
1#! perl -w
2 $sentence = "I love c++ and perl";
3 @words = split " ",$sentence;
4 @words = @words[0,1,4];
5 print "the sentence \"@words\" has ".@words." words\n";
有興趣的朋友可以試試看結(jié)果
3, 函數(shù)參數(shù)列表的括號可加可不加，就像上面調(diào)用open函數(shù)，正規(guī)寫法應(yīng)該是open(FILE,"$_[0]"),原因就在于perl覺得挪動兩根手指去輸入括號，是很費時的，而大多數(shù)情況下不加括號并不會引起歧義
4，函數(shù)的返回值為默認(rèn)的最后一個表達(dá)式的值，請注意，perl的函數(shù)沒有void的類型，任何函數(shù)都有返回值，且不用你去費事的寫return，而return在perl中又叫“多余的7個字母”
5，子例程參數(shù)列表 @_的使用，你也許會對第一個例子中的子例程replaceString有的意外，沒有參數(shù)列表，是的，perl的子例程沒有參數(shù)列表，不去規(guī)定每個函數(shù)可以接受什么參數(shù)，多少個參數(shù)，所有傳入的參數(shù)都會在函數(shù)調(diào)用的時候自動存入@_這個特殊數(shù)組（諸如此類的特殊符號perl中還有許多），而數(shù)組的第一個元素可以像這樣應(yīng)用$_[0],第二個$_[1]...依次類推，所以，我可以將第一個例程稍作修改，使他可以適用于更多的輸入?yún)?shù)，達(dá)到一次處理多個文件的效果
1&replaceString(@ARGV);
2
3sub replaceString
4{
5 foreach $id (0..@_-1)
6 {
7 open FILE,"< $_[$id]"
8 or die "can' open file $_[$id]:$!";
9 while(<FILE>)
10 {
11 s/\w*(<[^>]+>)/\U$1/g;
12 print ;
13 }
14 close FILE;
15 }
16}
6，以上的例子還可以進(jìn)一步簡化
1&replaceString(@ARGV);
2
3sub replaceString
4{
5 foreach (@_)
6 {
7 open FILE,"< $_"
8 or die "can' open file $_[$id]:$!";
9 while(<FILE>)
10 {
11 s/\w*(<[^>]+>)/\U$1/g;
12 print ;
13 }
14 close FILE;
15 }
16}
注意第5行和第7行的變化，出現(xiàn)了一個新的面孔$_，它成為默認(rèn)變量，那它默認(rèn)指代誰呢？在循環(huán)語句中，它默認(rèn)指代循環(huán)變量，注意到foreach中省略了他原有的循環(huán)變量$id,那這時$_就指向了它，也許你會覺得這回令程序產(chǎn)生歧義，其實這些擔(dān)心是多余的，事實上它在perl中很好用，可以使寫出來的程序簡潔優(yōu)美，perl中還有許多諸如此類的變量：
$_ 默認(rèn)變量，多用于循環(huán)語句指代循環(huán)變量
$! 錯誤信息包含變量，當(dāng)調(diào)用系統(tǒng)API出錯的時候，系統(tǒng)的錯誤信息會自動寫入這個變量
$` 正則表達(dá)式匹配前置變量
$& 正則表達(dá)式匹配變量
$' 正則表達(dá)式匹配后置變量
$1,$2,$3... 正則表達(dá)式匹配臨時變量
前面兩個我們已經(jīng)見過了，后面四個都是關(guān)于正則表達(dá)式的，還是以一個例子說明吧
#! perl -w
use strict;
sub readMappingFile
{
my ($fileName)=@_;
my %mapping;
open MAPFILE,"< $fileName"
or die "can't open file $fileName:$!";
while(<MAPFILE>)
{
chomp;
if(/^(\w+)\s+/)
{
$mapping{$1}=$';
}
}
%mapping;
}
no strict;
print $ARGV[0]." is open\n";
%mapping=readMappingFile $ARGV[0];
while(($key,$value)= each %mapping)
{
print "$key=>$value\n"
}
這個例子需要傳入一個命令行參數(shù)，該參數(shù)是個文本文件的文件名，程序?qū)⒆x入文本文件的內(nèi)容，將它存入散列%mapping中（以%為前綴的變量聲明未散列，相當(dāng)于C++ STL中的map類型），最后將其打印出來
例如：文本內(nèi)容為：
1 cnblog
2 cppblog
csdb http://blog.csdn.net/dawnbreak/
cppblog http://m.shnenglu.com/dawnbreak/
將會輸出：
1.txt is open
1=>cnblog
cppblog=>http://m.shnenglu.com/dawnbreak/
2=>cppblog
csdb=>http://blog.csdn.net/dawnbreak/
注意到各行每兩個健值之間的空格或制表符并不一樣，但是輸出格式確是一致
這篇文章前前后后寫了很長時間，決定還是先發(fā)出來，慢慢更新