perl 一些正則特性使用

liukaiyi

一些特殊正則元字符說明:
   1. *? 和 +? 和 {n,}?  懶惰匹配
     1.1 非懶惰 　　　　　　　　　　         
         echo "ab2c121a" |perl -ne 'print $1 if /(.*)\d/;'   #print ab2c12
     1.2懶惰 　　　　　　　　　　               
         echo "ab2c121a" |perl -ne 'print $1 if /(.*?)\d/;'   #print ab

   2.  回溯引用和前后查找:
     2.1 向前查找   (?=..)  　　　　　　　                  
       echo "ab2c121a" |perl -ne 'print $1 if /(.*?)(?=2)/;'  #print ab
     2.2 向后查找 (?<=..)  　　     　　　　
       echo "ab2c121a" |perl -ne 'print $1 if /(?<=2)(.*)(?=2)/;' 　#print c1
     2.3 負向-前/后 查找  (?!..) (?<!..)   
       #不能匹配 ..                              
       echo "ab2c121a" |perl -ne 'print $1 if /(?<!2)(c.*)/;'    #print 無
       echo "ab2c121a" |perl -ne 'print $1 if /(?<!3)(c.*)/;'    #print c121a

     2.4 條件 ?()  = if   ?()| = if else
       # ?()  例如  <p> </p> 必須同時出現(xiàn)               
       echo "<p>xx</p>"|perl -ne 'print $2  if /(<p>)?(\w*)(?(1)<\/p>)/'   #print  xx
       echo "<p>xx"|perl -ne 'print $2,"\n" if /(<p>)?(\w*)(?(1)<\/p>)/'    #print 空
       echo "xx"|perl -ne 'print $2 if /(<p>;)?(\w*)(?(1)<\/p>)/'    #print xx
       # ?()|  例如 還是上面的，
       # 當 有<p> 可以接</p> 也可以接 數(shù)字結(jié)尾           
       echo "<p>xx1</p>"|perl -ne 'print $2  if /(<p>;)?(\w*)(?(1)<\/p>|\d)/'  #print xx1
       echo "<p>xx1"|perl -ne 'print $2  if /(<p>;)?(\w*)(?(1)<\/p>|\d)/'    # print xx

[[i] 本帖最后由 liukaiyi 于 2009-9-22 17:22 編輯 [/i]]

聰明笨小孩

不錯  學習

leigh111

太好了。易理解。