perl 正则表达式之漫游

废话不多说了，直奔主题~

一、简单模式进行匹配

将模式写在一对//中即可，匹配对象是$_

元字符：圆括号()      进行模式分组

点号   .        能匹配任意一个字符，除换行符（\n）以外

反斜线 \       在模式中使用反斜线时，请用两个反斜线表示　　　　　　　　　　

 $_ = 'a real \ backslash';
 if(/\\/){
         print "yes \n";
     }

量词：*        匹配前面的条目零次或多次

+        匹配前面的条目1次或多次

？       前面的条目可有可无

模式分组：圆括号()    对字符串进行分组

反向引用   在反斜线的后面接上编号，如\1,\2，数字表示对应的 捕获组

捕获组      用反向引用来引用圆括号中的模式所匹配的文字

择一匹配：竖线｜　　　

　　　字符集：　一组可能出现的字符，写在方括号内([]),只能匹配单个字符，可以是字符集内的任意一个

[]字符集以内

[^]字符集以外

\d  数字[0-9]

\s  任意空白符[\f\t\h\r]

\v  垂直空白符

\h  水平空白符

\R  断行

\w  单词[a-zA-Z0-9_]

反义简写：大写版本能匹配相应小写版本以外的字符

[\d\D]匹配任意字符，包括换行

[^\d\D]什么都不匹配

 use 5.0114;
 $_ = 'The HAL-9000 requires';
 if(/\d/){
     say 'yes';
 }

 if(/[\d]/){
     say 'yes';
 }