1、PERL 語言培訓(xùn),概述,一、Perl是什么?Perl是Practical Extraction and Report Language的縮寫，它是由Larry Wall設(shè)計的，并由他不斷更新和維護(hù)，用于在UNIX環(huán)境下編程。.Perl具有高級語言（如C）的強大能力和靈活性。事實上，你將看到，它的許多特性是從C語言中借用來的。.與腳本語言一樣，Perl不需要編譯器和鏈接器來運行代碼，你要做的只是寫出程序并告訴Perl來運行而已。這意味著Perl對于小的編程問題的快速解決方案和為大型事件創(chuàng)建原型來測試潛在的解決方案是十分理想的。.Perl提供腳本語言（如sed和awk）的所有功能，還具有它們所不

2、具備的很多功能。Perl還支持sed到Perl及awk到Perl的翻譯器。簡而言之，Perl象C一樣強大，象awk、sed等腳本描述語言一樣方便。二、Perl在哪里?可到 三、運行用文本編輯器編輯好你的Perl程序，加上可執(zhí)行屬性：$chmod +x 就可以執(zhí)行了：$./。如果系統(tǒng)提示：/usr/local/bin/perl not found，則說明你沒有安裝成功，請重新安裝。注：你的程序的第一行必須為#!/usr/local/bin/perl（perl所在位置）。四、注釋：注釋的方法為在語句的開頭用字符#，如：# this line is a comment注：建議經(jīng)常使用注釋使你的程序易

3、讀，這是好的編程習(xí)慣。,Perl程序一般框架,#!/usr/bin/perl use strict; use ; my $a; my b; my %c; sub my_sub1 return .; #remark sth sub my_sub2 other statements;,框架部分說明,#!/usr/bin/perl 這里指出解釋器perl的路徑，這種寫法只用于unix下，在windows下當(dāng)注釋處理 use strict; use ; 這部分相當(dāng)于java里面的import,C里面的 #include，引用一些程序需要 用到的包文件。use strict 這句比較特殊，引用這句只是告

4、訴perl對程序作 嚴(yán)格的語法檢查，建議腳本里面都帶上這句。 my $va； my vb; my %c; 這是變量定義部分，my 是關(guān)鍵字，相對于vb里面的dim,不過如果沒有 use strict;語句，則定義變量不用加上my關(guān)鍵字。引用變量的時候需要 注意，perl和c一樣是大小寫敏感的。,框架部分說明,#remark sth perl里用 # 號注釋一行 塊注釋 perl里面注視一段代碼 =remarkbegin 這里=號頂格寫，后面緊跟以字母開頭的字符串 statement 1; statement 2; =cut 這表示注視結(jié)束 statement n;,框架部分說明,sub my_

5、sub1 這是perl的子程序定義 Perl不分函數(shù)和過程，如果sub程序體里有顯式的return語句，則由 該語句決定返回值，如果沒有顯式的return語句，則返回值為執(zhí)行的 sub程序體里的最后一個語句的值。 sub定義時不需要指定參數(shù)及類型，如果調(diào)用的時候傳遞了參數(shù) 則所有的參數(shù)存放在數(shù)組 _ 里面， $_0,$_1分別對應(yīng)第一、 第二個參數(shù)。 sub調(diào)用方式: sub_name,程序執(zhí)行流程,perl跟java、c 不一樣，沒有main函數(shù)，perl腳本在解釋執(zhí)行時和 shell腳本一樣，自頂向下，跳過sub定義部分依次執(zhí)行,數(shù)據(jù)類型,標(biāo)量 定義時用$標(biāo)示 數(shù)組 定義時用標(biāo)示 Hash

6、表 定義時用%標(biāo)示 my $username = “oracle”; my tables = (“custome”,”order”); my %week = (1=monday),(2=tuesday); 任意一個標(biāo)量變量可以賦值 整形、浮點型，字符串 數(shù)組變量的元素可以是不同的標(biāo)量，也可以是數(shù)組、hash表,字符串特別說明,Perl中定義字符串可以用單引號，也可用雙引號 my $username = oracle; my $passwd = “manager”; 二者的區(qū)別在于，雙引號表達(dá)式中perl會對其中的變量先做解析替換 my $passwd = “$username” 這樣，$pas

7、swd 實際上和 變量 $username 相等，如果口令就是$加字符username則可以用 my $passwd = $username 或者用雙引號表達(dá)式，但需要對$符號做轉(zhuǎn)義處理 my $passwd = “$username”; 注意：在雙引號表達(dá)式中如果引用關(guān)鍵字譬如$,%,本身，則需要對其作轉(zhuǎn)義處理，而在單引號表達(dá)式中不需要。轉(zhuǎn)義方法就是在其前加上反斜杠 “”,操作符,一、算術(shù)操作符二、整數(shù)比較操作符三、字符串比較操作符四、邏輯操作符五、位操作符六、賦值操作符七、自增自減操作符八、字符串聯(lián)結(jié)和重復(fù)操作符九、逗號操作符十、條件操作符,操作符特別說明,Perl操作符和c基本一樣，需要

8、特別說明的是 字符串比較操作符 lt, gt, eq, le, ge, ne這點和shell腳本里的比較是一樣的，在比較字符串的時候一定要用這些比較符，而不要用數(shù)值比較操作符,=,!= ，否則會出現(xiàn)意想不到的結(jié)果。 字符串連結(jié)和重復(fù)操作符 連接用 . : $a = “hello” . “,world” . $c; 重復(fù)用 x : $a = “a” x 3; #$a = “aaa”;,控制結(jié)構(gòu),一、條件判斷二、循環(huán)：1、while循環(huán) 2、until循環(huán) 3、for循環(huán) 4、針對列表(數(shù)組)每個元素的foreach循環(huán)5、do循環(huán)6、循環(huán)控制 7、傳統(tǒng)的goto語句三、單行條件 foreach循

9、環(huán)、循環(huán)控制、單行條件 foreach my $v (“1”,”abc”,10) print “$vn”; foreach (“1”,”abc”,10) print ; print “n”; #這兩句等價于 print “$_n”; ,循環(huán)控制,Perl中跳出循環(huán)用last ,跳過循環(huán)體下面的語句用next 分別相當(dāng)于c里面的break 和 continue for(;) last if(.); .; next if(); ,單行條件,這是perl比較特殊也是比較方便的語法 語法為statement keyword condexpr。其中keyword可為if、unless 、while或un

10、til，如：print (This is zero.n) if ($var = 0);print (This is zero.n) unless ($var != 0);print (Not zero yet.n) while ($var- 0);print (Not zero yet.n) until ($var- = 0) 雖然條件判斷寫在后面，但卻是先執(zhí)行的。,模式匹配,模式匹配是perl的優(yōu)勢，利用模式匹配perl能很方便的處理一些字串、文件 模式匹配在unix下shell腳本中用的也很普遍，它們的規(guī)則是通用的 匹配操作符 = 和 ！ =檢驗匹配是否成功 ! 則相反 $str = “a

11、bcdefg”; print “字符串包含abc” if($str = /abc/); print “字符串不包含abc” if($str ! /abc/); 模式匹配中特殊字符 . 匹配任何字符() 模式內(nèi)存 匹配開頭+ * ? 出現(xiàn)次數(shù) $ 匹配結(jié)尾 $ b B 錨 | 選項 范圍,模式匹配,指定模式定界符 默認(rèn)情況下，模式匹配用/ / 表示，也可以由 m 自行指定 如: $var = /abc/ $var = m!abc! $var = /abc/ $var = m!/abc/!,正則表達(dá)式例子,my $patFlt = *-+? *(1-9d*|0).?d* *$; my $patInt = *-+? *(1-9d*|0) *$; $patFlt 用來檢驗一個變量值是不是浮點型 $patInt 用來檢驗一個變量是不是整形值 my $in; while ($in = ) if ($in ! /$patInt/) print n error,please input a int valuen; else print n your input values is : $in; las