perl学习模式匹配与正则表达式

Posted 2020-10-27 huanm

一：模式匹配中的特殊字符

1：　　点号 .

　　　  匹配任何单个字符(换行符\\n除外)

2：　　反斜线 \\

　　　　转义字符，用于特殊符号前，使其失去特殊字符的作用变成普通字符

3：　　+

　　　　匹配该字符前面的字符（单个）至少一次；1次，2次...n次

4：　　*

　　　　匹配该字符前面的字符任意次：0次，1次...n次

5：　　？

　　　　匹配该字符前面的字符0次或者一次

6：　　.*

　　　　匹配任意字符任意次（换行符除外）

7：　　{count}

　　　　匹配前面的字符count次

8：　　{min，}

　　　　匹配前面的字符至少min次

9：　　{min，max}

　　　 匹配至少min，至多max

10：　　*？

　　　　匹配该字符前面的字符任意次：0次，1次...n次，倾向于短字符，非贪婪量词

11：　　+？

　　　　匹配该字符前面的字符（单个）至少一次；1次，2次...n次，倾向于短字符，非贪婪量词

12：　　（）

　　　　模式分组字符 eg：/(perl)+/  #有()匹配模式是perl，没有括号，匹配模式是单个字符l；

　　　　1）借助模式分组，可以使用\\number的方向引用来引用括号内匹配的内容，n和括号内的组号匹配

　　　　

　　　　2）perl 5.10可以使用\\g{number}这种形式的反向引用，n可以为负数

　　　　

              输出：

13：　　|

　　　　或，即匹配左右都可

14：　　例子

　　　　

             输出：

 二：　　字符集

　　　字符集是指一串可能出现的字符集合。通过写在方括号([ ])内来表示。只能用来匹配单个字符，但可以是方括号内列出的任意一个　　　

 　　　　

              输出：

1：　　可以使用字符 - 进行简写； [0-9]表示0到9十个数字

2：　　可以使用脱字符 ^ 匹配字符集外的字符

3：　　字符集简写

　　　　

　　　　说明：\\d 匹配任意的数字， \\w匹配任意的字母数字下划线 ，\\s匹配任意的空格，

 　　　　

4：　　例子

　　　　

              输出：

　　　　问题：test_id = 20010的\\w\\s+匹配一个字符多个空格；按道理匹配不了啊，但输出匹配成功

5：　　常用字符集

　　　　/[\\dA-Fa-f]+/   :匹配16进制数

　　　　/\\d\\D/              :匹配任意字符

　　　　/^\\d\\D/            :什么字符都不匹配

四：　　模式匹配操作符与修饰符

1:　　　操作符

　　　   在前面的介绍与例子中，我们使用 // 来进行匹配（实际上是m//）;

　　　　模式匹配操作符可以使用任意成对的定界符，当使用斜线作为定界符时，开头的m可以省略

　　　　eg：m(fred)，m<fred>，m{fred}，m[fred]

　　　　　　m%http://% 

2：　　修饰符（在操作符后面，其实与操作符的/符号合用）

　　　　1）/i  

　　　　　进行模式匹配时，将不区分大小写

　　　　2）/s

　　　　模式中的点号将匹配包括换行符在内的任意字符（注意与\\s区分开来，\\s是字符集里匹配任意的空格的简写）

　　　　3）/x

　　　　忽略空白符，使用/x修饰符可以在模式里面随意加上空白，使其更容易阅读。

五：　　锚位

1：　　^

 　　　　标志字符串的开头

2：　　$

　　　　标志字符串的末尾，eg：/^\\s*$/

3:　　  /b 指定特定的单词

　　　　单词（\\w+）锚位，匹配任何单词的收尾

4：　　/B

　　　　非单词锚位，匹配所有/b不能匹配的位置

 5：　　例子

　　　　

               输出：

六：　　绑定操作符=~

　　　　默认情况下，模式匹配的对象的$_，绑定操作符=~用于告诉perl拿右边的模式匹配左边的字符串，而不是匹配$_变量中的字符串

 　　　　

七：　　模式串中的变量内插

　　　　例如：

　　　　my $val = "just";

　　　　my $val2 = "This is just a test example";

　　　　if ($val2 =~ /($val)/) { .... } #正则表达式中的变量内插，if ($val2 =~ /$(val)/)也可。

八：　　捕获

　　　　把圆括号内的字符串暂时记忆下来的能力，如果有多个圆括号，就有多个捕获。捕获变量都是标量变量，依次为$1,$2...$n

1：　　 捕获周期

　　　　捕获变量通常能存活到下次成功的模式匹配为止，即失败的匹配不会改动上次工程匹配时捕获的内容，而成功时会将它们重置。如果在数行之外使用捕获变量，最好将捕获变量的值复　　　　　　　　　　　　　　　　　　　　　　制到一个一般的变量里 

 　　　　

                输出：

2：　　不匹配模式

　　　　一般情况下，模式使用的圆括号都会捕获部分的匹配串到捕获变量中，但若perl正则表达式允许使用括号但不做捕获（不捕获括号），需要在左括号的后面加上问号和冒号（？：）。

3：　　 命名捕获

　　　　管理$1,$2...是比较困难的，尤其是对比较复杂的正则表达式而言。Perl5.10引入了正则表达式命名捕获的概念。

　　　　在命名捕获中，捕获结果保存在%+的特殊哈希中；模式加标签的写法是(?<LABEL>PATTERN)，访问为$+{LABEL}，可使用\\g{LABEL}或\\k{LABEL}反向引用。

　　例子：

　　　　

                 输出：

 4：　　自动匹配变量

　　　　$&:匹配括号的内容；$`:匹配内容前的字符；$’：匹配内容后的值（包括空格逗号等）

 

 九：　　替换

1：　　s///

　　　　前两个//里是要替换的字符，后两个//里是替换的字符；返回布尔值，替换成功时为真；只替换一个值

2：　　/g

　　　　全局替换；常写在s///后面，/g的斜线省略

　　　　

　　　　输出：

　　　　

3：　　不同的替换界定符

　　　　和m//一样，s///操作符也可以使用其他的定界符

　　　　1）使用没有左右之分的非成对符号，跟s///一样，只需重复三次即可；eg：s#Barney#Fred#

　　　　2）使用有左右之分的成对符号，必须使用两对，一对圈引模式，一对圈引替换模式。圈引模式与圈引替换模式不一定要相同

　　　　eg：s{barney}{fred}；s[barney][fred]；s<fred>#barney#

4:　　   替换修饰符　

　　　　　/g（全局替换）

　　　　　/i，/s，/x　（四（2）同）

　　　　　/m 使模式匹配字符串内的换行符

5：　　大小写转换

　　　　

　　　　例子：

　　　　

               输出：

 十：　　split操作符

　　　　根据指定的分隔符拆开一个字符串，返回子串的列表（即将一个字符串分解为多个）。尤其适用于处理被制表符，冒号，空白或其他符号分割的数据

1：　　语法规则

　　　　@split = split /separator/，$string    or @split = split( /separator/，$string)

　　　　split会保留开头处的空字段，并省略结尾处的空字段

2：　　例子

　　　　 

                  输出：

　　　　说明：多余的冒号会被当成空字符

十一：　　join函数

　　　　　将多个字符串片段合并成一个字符串

    　　　　my $result = join $glue,@pieces; or my $result = join ($glue,@pieces)

 　　　　　　

                   输出：

十二：　　列表上下文中的m//

　　　　　一般情况下，模式匹配操作符m//返回的是布尔值，如果在列表上下文中使用模式匹配操作符，将返回所有捕获变量的列表

　　　　　　eg：my $test = "hello,there,neighbor";

　　　　　　　　my ($first,$second,$third) = ($test = ~ /(\\S+) (S+), (S+)/); 大写S是小写s补集。

十三：　　命令行执行perl

　　　　　　perl -p -i.bak -w -e  \'s/Randall/Randal/g\'  fred*.dat

 　　　　　　

十四：debug perl脚本

　　　　1）在程序头添加-d或者在终端perl -d filename.pl；打开debug模式

　　　　2）DB<1>       l :list the next few lines；p $variable name: 输出变量值；  q:quit；  

　　　　　　　　　　  r：从子函数中返回；      R：再次运行；    n：单步执行，不进入子函数（F10）

　　　　　　　　　　  s：单步执行(F11)，进入子函数；

　　　　　　　　　　  b：放断点，如b 20 在第二十行放断点 ；   c：运行到第一个断点处