Perl教程 - 標量
Perl教程 - 數組
Perl教程 - 哈希
Perl教程 - 文件操作
Perl在IC設計中有廣泛的應用,而Perl的正則表達式則由其常見,它與Tcl等語言中的正則表達式有一定的相似之處,因此如果學習過相關正則表達式的話這個不會很難。
匹配:m/<regexp>/(還可以簡寫為/<regexp>/,略去m)
替換:s/<pattern>/<replacement>/
轉化:tr/<pattern>/<replacemnt>/
這三種形式一般都和=~或!~搭配使用,並在左側有待處理的標量變量,如果沒有該變量和=~ !~操作符,則默認為處理$_變量中的內容. (其中"=~"表示相匹配,在整條語句中讀作does,"!~"表示不匹配,在整條語句中讀作doesn't) $str=~m/Perl/;#表示如果在$str中發現"Perl"字符串,則返回"1"否則返回"0". $str=~s/Perl/BASH/;#表示將變量$str中的"Perl"字符串替換為"BASH",如果發生此替換則返回"1",否則返回"0". $str!~tr/A-Z/a-z/;#表示將變量$str中的所有大寫字母轉化為小寫字母,如果轉化發生了則返回"0",否則返回"1". foreach(@array){s/a/b/;}#此處每次循環將從@array數組中取出一個元素存放在$_變量中,並對$_進行替換處理. while(<FILE>){print if(m/error/);}#這一句稍微複雜一些,他將列印FILE文件中所有包含error字符串的行. Perl的正則表達式中如果出現(),則發生匹配或替換後()內的模式被Perl解釋器自動依次賦給系統$1,$2.$string=~s/(love)/<$1>/; #此時$1="love",並且該替換的結果是將$string變為"I<love>perl" $string=~s/(i)(.*)(perl)/<$3>$2<$1>/;#這裡$1="i",$2="love",$3="perl",並且替換後$string變為"<perl>love<i>"匹配操作符 m// 用於匹配一個字符串語句或者一個正則表達式,例如,要匹配標量 $bar 中的"run",代碼如下所示:$bar = "I am runoob site. welcome to runoob site.";perl處理完後會給匹配到的值存在三個特殊變量名:$string = "welcome to runoob site.";替換操作符 s/// 是匹配操作符的擴展,使用新的字符串替換指定的字符串。基本格式如下:PATTERN 為匹配模式,REPLACEMENT為替換的字符串。例如我們將以下字符串的"google" 替換為"runoob":$string = "welcome to google site.";$string =~ s/google/runoob/;如果在修飾符中加上"i",則正則將會取消大小寫敏感性,即"a"和"A" 是一樣的。默認的正則開始"^"和結束"$"只是對於正則字符串如果在修飾符中加上"m",那麼開始和結束將會指字符串的每一行:每一行的開頭就是"^",結尾就是"$"。如果在修飾符中加入"s",那麼默認的"."代表除了換行符以外的任何字符將會變成任意字符,也就是包括換行符!如果加上該修飾符,表達式中的空白字符將會被忽略,除非它已經被轉義。 s/<pattern>/<replacement>/g 表示把待處理字符串中所有符合<pattern>的模式全部替換為<replacement>字符串. s/<pattern>/<replacement>/e表示將把<replacemnet>部分當作一個運算符,這個參數用的不多. $string=~s/:/*/;#此時$string="i*love:perl"; $string=~s/:/*/g;#此時$string="i*love*perl"; $string=~tr/*//;#此時$string="iloveperl"; $string=~s/(\d+)/$1*2/e;#(/d+)代表$string中的一個或多個數字字符,將這些數字字符執行*2的操作,因此最後$string變成了"www44cgi88".這是另一種替換方式,語法如:tr/string1/string2/。同樣,string2為替換部分,但其效果是把string1中的第一個字符替換為string2中的第一個字符,把string1中的第二個字符替換為string2中的第二個字符,依此類推。如:$string = "abcdefghicba";$string =~ tr/abc/def/; # now string = "defdefghifed"當string1比string2長時,其多餘字符替換為string2的最後一個字符;當string1中同一個字符出現多次時,將使用第一個替換字符。以下實例將變量 $string中的所有小寫字母轉化為大寫字母:$string = 'welcome to runoob site.';以下實例使用 /s 將變量 $string 重複的字符刪除:$string =~ tr/\d/ /c; # 把所有非數字字符替換為空格$string =~ tr/\t //d; # 刪除tab和空格$string =~ tr/0-9/ /cs # 把數字間的其它字符替換為一個空格。正則表達式中的常用模式. /pattern/ 結果 . 匹配除換行符以外的所有字符 x? 匹配0次或一次x字符串 x* 匹配0次或多次x字符串,但匹配可能的最少次數 x+ 匹配1次或多次x字符串,但匹配可能的最少次數 .* 匹配0次或多次的任何字符 .+ 匹配1次或多次的任何字符 x{m} 匹配剛好是m個x的指定字符串 x{m,n} 匹配大於等於m個,小於等於n個x的指定字符串 x{m,} 匹配大於等於m個x的指定字符串 [] 匹配符合[]內的字符 [^] 匹配不符合[]內的字符 [0-9] 匹配所有數字字符 [a-z] 匹配所有小寫字母字符 [^0-9] 匹配所有非數字字符 [^a-z] 匹配所有非小寫字母字符 ^ 匹配字符開頭的字符 $ 匹配字符結尾的字符 \d 匹配一個數字的字符,和[0-9]語法一樣 \d+ 匹配多個數字字符串,和[0-9]+語法一樣 \D 非數字,其他同\d \D+ 非數字,其他同\d+ \w 英文字母或數字的字符串,和[a-zA-Z0-9]語法一樣 \w+ 和[a-zA-Z0-9]+語法一樣 \W 非英文字母或數字的字符串,和[^a-zA-Z0-9]語法一樣 \W+ 和[^a-zA-Z0-9]+語法一樣 \s 空格,和[\n\t\r\f]語法一樣 \s+ 和[\n\t\r\f]+一樣 \S 非空格,和[^\n\t\r\f]語法一樣 \S+ 和[^\n\t\r\f]+語法一樣 \b 匹配以英文字母,數字為邊界的字符串 \B 匹配不以英文字母,數值為邊界的字符串 a|b|c 匹配符合a字符或是b字符或是c字符的字符串 abc 匹配含有abc的字符串 (pattern) ()這個符號會記住所找尋到的字符串,是一個很實用的語法。第一個()內所找到的字符串變成$1這個變量或是\1變量,第二個()內所找到的字符串變成$2這個變量或是\2變量,以此類推下去。 /pattern/i i這個參數表示忽略英文大小寫,也就是在匹配字符串的時候,不考慮英文的大小寫問題。 \ 如果要在pattern模式中找尋一個特殊字符,如"*",則要在這個字符前加上\符號,這樣才會讓特殊字符失效。 /perl/ 找到含有perl的字符串 /^perl/ 找到開頭是perl的字符串 /perl$/ 找到結尾是perl的字符串 /c|g|i/ 找到含有c或g或i的字符串 /cg{2,4}i/ 找到c後面跟著大於等於2個小於等於4個g,再跟著i的字符串 /cg{2,}i/ 找到c後面跟著2個及2個以上g,再跟著i的字符串 /cg{2}i/ 找到c後面跟著2個g,再跟著i的字符串 /cg*i/ 找到c後面跟著0個或多個g,再跟著i的字符串,如同/cg{0,}i/ /cg+i/ 找到c後面跟著1個或多個g,再跟著i的字符串,如同/cg{1,}i/ /cg?i/ 找到c後面跟著0個或1個g,再跟著i的字符串,如同/cg{0,1}i/ /c.i/ 找到c後面跟著一個任意字符,再跟著i的字符串 /c..i/ 找到c後面跟著二個任意字符,再跟著i的字符串 /[cgi]/ 找到符合有這三個字符任意一個的字符串 /[^cgi]/ 找到沒有這三個字符中任意一個的字符串 /\d/ 找尋符合數字的字符,可以使用/\d+/來表示一個或是多個數字組成的字符串 /\D/ 找尋符合不是數字的字符,可以使用/\D+/來表示一個或是更多個非數字組成的字符串 /\*/ 找尋符合*這個字符,因為*在常規表達式中有它的特殊意思,所以要在這個特殊符號前加上\符號,這樣才會讓這個特殊字符失效/abc/I 找尋符合abc的字符串而且不考慮這些字符串的大小寫3.正則表達式的八大原則: ·原則1:正則表達式有三種不同形式(匹配(m//),替換(s///eg)和轉換(tr///)). ·原則2:正則表達式僅對標量進行匹配($scalar=~m/a/;可以工作;@array=~m/a/將把@array作為標量對待,因此可能不會成功). ·原則3:正則表達式匹配一個給定模式的最早的可能匹配.預設時,僅匹配或替換正則表達式一次($a='stringstring2';$a=~s/string//;導致$a='string2'). ·原則4:正則表達式能夠處理雙引號所能處理的任意和全部字符($a=~m/$varb/在匹配前把varb擴展為變量;如果$varb='a'$a='as',$a=~s/$varb//;等價於$a=~s/a//;執行結果使$a="s"). ·原則5:正則表達式在求值過程中產生兩種情況:結果狀態和反向引用:$a=~m/pattern/表示$a中是否有子串pattern出現,$a=~s/(word1)(word2)/$2$1/則「調換」這兩個單詞. ·原則6:正則表達式的核心能力在於通配符和多重匹配運算符以及它們如何操作.$a=~m/\w+/匹配一個或多個單詞字符;$a=~m/\d/"匹配零個或多個數字. ·原則7:如果欲匹配不止一個字符集合,Perl使用"|"來增加靈活性.如果輸入m/(cat|dog)/則相當於「匹配字符串cat或者dog」. ·原則8:Perl用(?..)語法給正則表達式提供擴展功能.謝謝您的關注