perl中的正則表達式怎么用

這篇文章主要介紹了perl中的正則表達式怎么用，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

perl中的正則表達式

正則表達式的三種形式

    首先我們應該知道Perl程序中，正則表達式有三種存在形式,他們分別是：

        匹配：m/<regexp>/（還可以簡寫為/<regexp>/,略去m）

        替換：s/<pattern>/<replacement>/

        轉(zhuǎn)化：tr/<pattern>/<replacemnt>/

        這三種形式一般都和=~或!~搭配使用,并在左側(cè)有待處理的標量變量,如果沒有該變量和=~ !~操作符，則默認為處理$_變量中的內(nèi)容.

        (其中"=~"表示相匹配,在整條語句中讀作does,"!~"表示不匹配,在整條語句中讀作doesn't)

    舉例如下：

      $str="I lovePerl";

        $str=~m/Perl/;#表示如果在$str中發(fā)現(xiàn)"Perl"字符串,則返回"1"否則返回"0".

        $str=~s/Perl/BASH/;#表示將變量$str中的"Perl"字符串替換為"BASH",如果發(fā)生此替換則返回"1",否則返回"0".

        $str!~tr/A-Z/a-z/;#表示將變量$str中的所有大寫字母轉(zhuǎn)化為小寫字母,如果轉(zhuǎn)化發(fā)生了則返回"0",否則返回"1".

      另外還有：

       foreach(@array){s/a/b/;}#此處每次循環(huán)將從@array數(shù)組中取出一個元素存放在$_變量中,并對$_進行替換處理.

       while(<FILE>){print if(m/error/);}#這一句稍微復雜一些,他將打印FILE文件中所有包含error字符串的行.

    Perl的正則表達式中如果出現(xiàn)(),則發(fā)生匹配或替換后()內(nèi)的模式被Perl解釋器自動依次賦給系統(tǒng)$1,$2......

      請看下面的例子：

          $string="Ilove perl";
           $string=~s/(love)/<$1>/; #此時$1="love",并且該替換的結(jié)果是將$string變?yōu)?quot;I<love>perl"
 
          $string="ilove perl";
           $string=~s/(i)(.*)(perl)/<$3>$2<$1>/;#這里$1="i",$2="love",$3="perl",并且替換后$string變?yōu)?quot;<perl>love<i>"

1、模式匹配

1.1、匹配操作符

匹配操作符 m// 用于匹配一個字符串語句或者一個正則表達式，例如，要匹配標量$bar 中的"run",代碼如下所示：

實例

#!/usr/bin/perl
 
$bar = "I am runoob site. welcome to runoob site.";
if ($bar =~ /run/){
   print "第一次匹配\n";
}else{
   print "第一次不匹配\n";
}
 
$bar = "run";
if ($bar =~ /run/){
   print "第二次匹配\n";
}else{
   print "第二次不匹配\n";
}

執(zhí)行以上程序，輸出結(jié)果為：

第一次匹配

第二次匹配

1.2、模式匹配修飾符

模式匹配有一些常用的修飾符，如下表所示：

1.3、正則表達式變量

perl處理完后會給匹配到的值存在三個特殊變量名:

• $`: 匹配部分的前一部分字符串

• $&: 匹配的字符串

• $': 還沒有匹配的剩余字符串

如果將這三個變量放在一起,你將得到原始字符串。

實例如下：

實例

#!/usr/bin/perl
 
$string = "welcome to runoob site.";
$string =~ m/run/;
print "匹配前的字符串:$`\n";
print "匹配的字符串:$&\n";
print "匹配后的字符串:$'\n";

執(zhí)行以上程序輸出結(jié)果為：

匹配前的字符串:welcome to

匹配的字符串: run

匹配后的字符串: oobsite.

2、模式替換

2.1、替換操作符

替換操作符 s/// 是匹配操作符的擴展，使用新的字符串替換指定的字符串?；靖袷饺缦拢?/p>

s/PATTERN/REPLACEMENT/;

PATTERN 為匹配模式，REPLACEMENT為替換的字符串。

例如我們將以下字符串的"google" 替換為"runoob":

實例

#!/usr/bin/perl
 
$string = "welcome to google site.";
$string =~ s/google/runoob/;
 
print "$string\n";

執(zhí)行以上程序輸出結(jié)果為：

welcome to runoob site.

2.2、替換操作修飾符

替換操作修飾符如下表所示：

    例如：

       s/<pattern>/<replacement>/g 表示把待處理字符串中所有符合<pattern>的模式全部替換為<replacement>字符串.

       s/<pattern>/<replacement>/e表示將把<replacemnet>部分當作一個運算符,這個參數(shù)用的不多.

        比如下面的例子：

         $string="i:love:perl";
            $string=~s/:/*/;#此時$string="i*love:perl";
           $string=~s/:/*/g;#此時$string="i*love*perl";
            $string=~tr/*//;#此時$string="iloveperl";
         $string="www22cgi44";
           $string=~s/(\d+)/$1*2/e;#(/d+)代表$string中的一個或多個數(shù)字字符,將這些數(shù)字字符執(zhí)行*2的操作,因此最后$string變成了"www44cgi88".

3、模式轉(zhuǎn)化

這是另一種替換方式，語法如：tr/string1/string2/。同樣，string2為替換部分，但其效果是把string1中的第一個字符替換為string2中的第一個字符，把string1中的第二個字符替換為string2中的第二個字符，依此類推。如：

$string = "abcdefghicba";
$string =~ tr/abc/def/; # now string = "defdefghifed"

當string1比string2長時，其多余字符替換為string2的最后一個字符；當string1中同一個字符出現(xiàn)多次時，將使用第一個替換字符。

例如：

#!/usr/bin/perl
 
$str = "abbcddeff";
$str =~ tr/abcc/ABCD/;
 
print "$str\n";

將輸出：

ABBCddeff

3.1、轉(zhuǎn)化操作符

以下是轉(zhuǎn)化操作符相關(guān)的修飾符：

以下實例將變量 $string中的所有小寫字母轉(zhuǎn)化為大寫字母：

#!/usr/bin/perl
 
$string = 'welcome to runoob site.';
$string =~ tr/a-z/A-Z/;
 
print "$string\n";

執(zhí)行以上程序輸出結(jié)果為：

WELCOME TO RUNOOB SITE.

以下實例使用 /s 將變量 $string 重復的字符刪除：

實例

#!/usr/bin/perl
 
$string = 'runoob';
$string =~ tr/a-z/a-z/s;
 
print "$string\n";

執(zhí)行以上程序輸出結(jié)果為：

runob

更多實例：

$string =~ tr/\d/ /c;     # 把所有非數(shù)字字符替換為空格
$string =~ tr/\t //d;     # 刪除tab和空格
$string =~ tr/0-9/ /cs    # 把數(shù)字間的其它字符替換為一個空格。

正則表達式中的常用模式.

    /pattern/                    結(jié)果

    .                               匹配除換行符以外的所有字符

    x?                             匹配0次或一次x字符串

    x*                             匹配0次或多次x字符串,但匹配可能的最少次數(shù)

    x+                             匹配1次或多次x字符串,但匹配可能的最少次數(shù)

    .*                              匹配0次或多次的任何字符

    .+                             匹配1次或多次的任何字符

    x{m}            匹配剛好是m個x的指定字符串

    x{m,n}                     匹配大于等于m個，小于等于n個x的指定字符串

    x{m,}                       匹配大于等于m個x的指定字符串

    []                              匹配符合[]內(nèi)的字符

    [^]                            匹配不符合[]內(nèi)的字符

    [0-9]                         匹配所有數(shù)字字符

    [a-z]                          匹配所有小寫字母字符

    [^0-9]                        匹配所有非數(shù)字字符

    [^a-z]            匹配所有非小寫字母字符

    ^                               匹配字符開頭的字符

    $                               匹配字符結(jié)尾的字符

    \d                              匹配一個數(shù)字的字符,和[0-9]語法一樣

    \d+                            匹配多個數(shù)字字符串,和[0-9]+語法一樣

    \D                             非數(shù)字,其他同\d

    \D+                           非數(shù)字,其他同\d+

    \w                             英文字母或數(shù)字的字符串，和[a-zA-Z0-9]語法一樣

    \w+                           和[a-zA-Z0-9]+語法一樣

    \W                            非英文字母或數(shù)字的字符串,和[^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                              匹配以英文字母，數(shù)字為邊界的字符串

    \B                             匹配不以英文字母，數(shù)值為邊界的字符串

    a|b|c                          匹配符合a字符或是b字符或是c字符的字符串

    abc                           匹配含有abc的字符串

    (pattern)                   ()這個符號會記住所找尋到的字符串，是一個很實用的語法。第一個()內(nèi)所找到的字符串變成$1這個變量或是\1變量，第二個()內(nèi)所找到的字符串變成$2這個變量或是\2變量，以此類推下去。

    /pattern/i                   i這個參數(shù)表示忽略英文大小寫，也就是在匹配字符串的時候，不考慮英文的大小寫問題。

     \         如果要在pattern模式中找尋一個特殊字符，如"*"，則要在這個字符前加上\符號，這樣才會讓特殊字符失效。

下面給出一些例子范例說明:

    /perl/             找到含有perl的字符串

    /^perl/                       找到開頭是perl的字符串

    /perl$/                       找到結(jié)尾是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]/                      找到?jīng)]有這三個字符中任意一個的字符串

    /\d/                            找尋符合數(shù)字的字符，可以使用/\d+/來表示一個或是多個數(shù)字組成的字符串

    /\D/                           找尋符合不是數(shù)字的字符，可以使用/\D+/來表示一個或是更多個非數(shù)字組成的字符串

    /\*/                            找尋符合*這個字符，因為*在常規(guī)表達式中有它的特殊意思，所以要在這個特殊符號前加上\符號，這樣才會讓這個特殊字符失效

/abc/I                     找尋符合abc的字符串而且不考慮這些字符串的大小寫

例如我們想匹配開頭不是#的內(nèi)容，可以寫：

$string =~/^[^#]/;

如果想匹配開頭部分不是#或者/的，可以寫：

$string =~/^[^#\/]/;

3.正則表達式的原則：

    ·原則1：正則表達式有三種不同形式(匹配(m//)，替換(s///eg)和轉(zhuǎn)換(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//;執(zhí)行結(jié)果使$a="s").

感謝你能夠認真閱讀完這篇文章，希望小編分享的“perl中的正則表達式怎么用”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識等著你來學習!