PERL語言培訓(xùn)內(nèi)部交流

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

2、備的很多功能。Perl還支持sed到Perl及awk到Perl的翻譯器。簡而言之，Perl象C一樣強(qiáng)大，象awk、sed等腳本描述語言一樣方便。二、Perl在哪里?可到下載。三、運(yùn)行用文本編輯器編輯好你的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í)慣。2Perl程序一般框架#!/usr/bin/perl use strict;use ; my $a;my b;my %c;sub my_sub1return .;#remark sthsub my_sub2other statements;3框架部分說明#!/usr/bin/perl 這里指出解釋器perl的路徑，這種寫法只用于unix下，在windows下當(dāng)注釋處理use strict; use ; 這部分相當(dāng)于java里面的import,C里面的 #include，引用一些程序需要用到的包文件。use strict 這句比較特殊，引用這句只是告訴perl對程序作嚴(yán)格

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

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

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

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

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

9、c”,10)print “$vn”;foreach (“1”,”abc”,10)print ;print “n”; #這兩句等價(jià)于 print “$_n”;12循環(huán)控制Perl中跳出循環(huán)用last ,跳過循環(huán)體下面的語句用next分別相當(dāng)于c里面的break 和 continuefor(;)last if(.);.;next if();13單行條件這是perl比較特殊也是比較方便的語法語法為statement keyword condexpr。其中keyword可為if、unless、while或until，如：print (This is zero.n) if ($var = 0);prin

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

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