Perl中的匹配(六)

在Perl中，匹配的定界符如果是双斜线//，可以直接使用双斜线完成匹配操作。

              如果特定条件下需要改变定界符，如改为{}，[]等。需要加入m，m{}，m[]等。

                           m%^http://%

              默认的模式匹配对象是自动化变量$_，如果要指定匹配对象，可以使用绑定操作符=~。

                           my $some_other = "I have a Dream";

                           if($some_other =~ /\brub/);    ##用右侧的模式对左侧的对象进行匹配。

 

模式匹配修饰符：

             /i表示大小写无关的匹配。

             /s表示元字符"."可以匹配到换行符。

             /x表示原匹配对象中的空白符无效，我们可以随意增加分割用的空白符，

                                                     对之前的空格可以使用\s字符集来表示。

             修饰符/a表示用ASCII码的方式解释对象中的字符，/u表示用unicode的方式来解释对象中的字符。

 

锚位修饰符：

            \A表示字符串的绝对起始位置--行首。

                  m{\Ahttps:?://}i; 

           \z表示字符串的绝对结束位置--行尾(\n之后)。

           脱字符(^)表示行首的首锚位，行尾的尾锚位($)，/m主要针对这两个锚位修饰符，

                     使得他们既可以得到行首行尾锚位。又可以锚位字符串首位

           \Z表示行尾锚位，不同的是允许之后可以有换行符。

           \b表示单词锚位。

                    /\bfreb\b/;

 

捕获变量与捕获组中的反向引用相对用：

           默认使用$1,$2这样的变量来表示，变量内部存储最近一次成功匹配到的值。

                   $_ = "Hello there, neighbor";

                   if(/(\S+) (\S+) (\S+)/) {

                               print "words were $1,$2,$3 \n"; }

          自定义命名捕获变量和关闭捕获。

                   if(/(?:bronto)?saurus (steak|burger)/)     ##?:表示关闭捕获功能，不会产生$1;

                          print "I saw $1";                             ##输出steak和burger的捕获值。 

                   if($names =~m/((?<name1>\w+) (and|or) (?<name2>\w+) \g{name1})/) 

                                            ##在该条语句中直接应用反向引用，在下一条语句中使用引用变量。

                          print "I saw $+<name1>";

 

自动捕获变量的存储，经过匹配后的数据，可以分为三部分：

匹配区段之前的字符：可以用$`或${^PREMATCH}

匹配的字符：可以用$&或者$(^MATCH)

匹配之后的字符：可以用$'或者$(^POSTMATCH)