1.Perl中的正则表达式
在Perl中叫做模式, 是一个匹配(或不匹配)某字符串的模板, 是一种小程序, 对于一个字符串, 要么匹配, 要么不匹配.
使用简易模式: 将模式写在一对正斜线(/)中即可.
2.元字符
. 匹配非换行符 的任何单字符, 需要注意的是转义字符如 算做一个字符. 匹配 . 应该使用 .
* 匹配前面的内容0次或多次, 使用 .* 表示匹配任意单字符任意次(这种模式也称为捡破烂模式)
+ 匹配前面的内容至少1次
? 匹配前面的内容至多1次
3.模式分组
使用圆括号 () 来分组, 它也是一个元字符.
分组可以实现反向引用, 如 1 就是在使用第一个分组, 2 使用第二个分组 如: /(.)1/ 表示匹配连续2个相同的字符, 使用 /(.)(.)21/ 可以得到4个字符的回文串; 分组的依据是左括号从左到右的序号, 从1开始, 如连续4个字符回文串也可以写作 /((.)(.)32)/
分组编号的处理: Perl的原则是贪心取最大值, 所以111 是第111号组, 如果只是想用1, 而且在后面匹配字符"11",那就会冲突; 可以使用g{N}来避免, 其中当N为正数时, 表示从左到右的第N个组, 当为负数时, 表示相对于当前从右往左数的第N个组.
4.选择匹配
使用符号 | , 只要在多个模式中有一个匹配即可, 由于一个模式要么匹配,要么不匹配, 一个字符串一般只匹配一个模式, 所以没有 类似于取反和求交集的逻辑操作.
5.字符集
定义: 指一串可能出现的字符集合, 写在 [] 中表示, 它只匹配单个字符, 但是可以使字符集中的任何一个; 如 [a-cw-z] [a-zA-Z0-9_]
简写: [0-9] <=> d [A-Za-z0-9_] <=> w [f ] <=> s #主要 后面有一个空格
反义简写: [^d] [^w] [^s] 分别表示非数字, 非单词字符, 非空白符; 对应等价于: D W S
注意: ^ 在字符集中才表示反义简写, 但是在模式中表示开头, 结尾对应 $ , 如 /^perl/ 表示以perl开头的字符串
6.正则表达式使用
匹配：m/<regexp>;/ （还可以简写为 /<regexp>;/ ，略去 m）
替换：s/<pattern>;/<replacement>;/
转化：tr/<pattern>;/<replacemnt>;/
符号: =~ 表示匹配, !~ 表示不匹配
$roger = "AABCDEF"; $Roger = "AABCDEF"; $count = $roger =~ tr/A/H/c; # /c表示将不匹配的字符替换, 同理有/d表示把所有匹配的字符全部替换 $count2 = $Roger =~ tr/A/H/; # 将匹配的字符替换,省略了/d 即: tr/A/H/d; print $count." ".$roger." "; #5 AAHHHHH print $count2." ".$Roger." "; #2 HHBCDEF
$roger = "AABCDEF"; $count = $roger =~ tr/A/H/ds; # /s表示要替换的字符串中如果持续连续两个相同字符,就去掉冗余的 print $count." ".$roger." "; #2 HBCDEF
2种用法:
$roger = "AABCDEF"; $count = $roger =~ tr/A//; # 等价于tr/A/A/; 统计模式出现的次数, 不会改变原串 print $count." ".$roger." "; #2 AABCDEF $count = $roger =~ tr/[A-Z]/[a-z]/; #替换成小写 print $count." ".$roger." "; #7 aabcdef
可以在替换的时候使用反向引用 s/(word1)(word2)/$2$1/ 这样可以交换字符串的word1和word2,注意后面是$2 $1