perl学习（3）模式匹配与正则表达式
一：模式匹配中的特殊字符
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：运行到第一个断点处
