大家好，又见面了，我是你们的朋友全栈君。

Perl正则表达式

2. 用正则表达式进行匹配

2.1 用 m// 进行匹配

到目前为止，我们都是讲正则表达式的内容写在一对斜线内，如/fred/。但其实这是 m// 的简写，其中m代表match，和之前看到的 qw// 类似，我么可以自行选择用于保卫内容的一堆字符作为边界，所以上面这个例子可以改写为m{fred},m[fred],m!fred!等。

• 在不冲突的情况下，建议使用双斜线 // 或 花括号 {}
• 冲突情况下建议使用其他字符串，如/http:\/\// -> m%http://%

2.2 模式匹配修饰符

正则表达式可以在末尾添加修饰符，这些修饰符有时候也被称作标志。
表2.2 常用模式匹配修饰符

2.3 锚位

默认情况下，如果字符串的开头不匹配给定模式，就会顺移到下一个字符位置继续尝试。为了让模式只匹配固定位置上的字符我们可以设置模式锚位。
表2.3 常用模式匹配锚位

2.4 绑定操作符 =~

正则表达式默认的匹配目标是$_，如果要制定匹配某个变量的文本，可以使用绑定操作符（binding operator） =~ ,左侧为变量，右侧为正则表达式。

#!/usr/bin/perl

my $some_other = "I dream of betty rubble.";
if ($some_other =~ /\brub/) { 
   
    print "Aye, there is the rub.\n";
}
#虽然绑定操作符看起来像是某种赋值操作，但其实并非如此！

2.5 捕获变量

• 正则表达式中出现的圆括号一般都会触发正则引擎捕捉到匹配的字符串。
  • 捕获组会把匹配括号中模式的字符串保存到相应变量；
  • 如果不止一个括号，也就不只一个捕获组；
  • 每个捕获组存储的是原始字符串中的内容，而不是模式本身，可以反向引用取得这些内容，如(ab)\1。
• 捕获变量保存的是字符串，它实质上是标量变量。
  • 默认变量名称为$1,$2，其中n代表第几对括号中所捕获的字符串内容。
  • 匹配失败时，$3为空字符串，但是未定义$100的值为undef。

2.5.1 捕获变量的生命周期

捕获变量(如$1,$2)的生命周期是指捕获变量中的值可以保存多久；捕获变量中的内容一般会保持到下次成功匹配为止，即匹配失败的手不会改动上次成功匹配的内容，而成功匹配将会刷新捕获变量中的值。

• 捕获变量只应该在匹配成功时使用，否则得到的就是上次匹配成功的值，这可能不是我们想要的结果；
• 由于捕获变量的生命周期较短，当使用捕获变量时只应该在模式匹配成功后的数行内使用；
• 如果希望在数行之外使用，最好将其复制到某个普通变量中；如my $here = $1;

2.5.2 禁用捕获的括号

• 目前正则表达式中的括号都会自动捕获匹配的字符擦混，但是有些时候我们希望关闭这个功能；
• 只是用圆括号来分组，或者是使程序结构清晰，更容易读懂。
• 禁用捕获的括号(?:acbd)

#!/usr/bin/perl
if (/(bronto)?saurus (stack|burger)/) { 
   
	print "Fred wants a $2\n";
}
#有时候尽管bronto不存在，仍然需要把$1留给它，perl只看左圆括号(决定捕获变量名称，因此我们只能使用$2来取得我们想要的结果。
if (/(?:bronto)?saurus (stack|burger)/) { 
   
	print "Fred wants a $1\n";
}
#使用(?:)关闭第一个模式分组的捕获功能，这样我们可以是使用$1来引用第二个分组中的内容；
if (/(bronto)?saurus (stack|burger)/n) { 
   
	print "Fred wants a $1\n";
}
#使用//n关闭全部正则表达式中的捕获功能，此时$1和$2的值均为undef

2.5.3 命名捕获

• 有时候，我么不希望使用$1，$2这些意义不明的捕获变量，我们希望自己给捕获变量命名；
• 可以使用捕获标签，(?<name1>\w+)
  • 当这个模式分组匹配成功后，可以使用$name1取得匹配的字符串。
• 使用捕获标签后，可以随意移动位置并且加入更多地捕获括号;
• 使用捕获标签后，标签-匹配字符 作为 key-value对存储哈希 %+ 中，取字符串时应使用哈希的方式 $+{label}；

#!/usr/bin/perl
my $name = "fred or barney";
if (/(fred) and (barney)/) { 
   
	say "I saw $1 and $2";                                     #匹配失败，不打印
}
if (/(fred) (and|or) (barney)/) { 
   
	say "I saw $1 and $2";                                     #匹配成功，打印 I saw fred and or
}
if (/(？<name1>fred) (and|or) (?<name2>barney)/) { 
   
	say "I saw $+{name1} and $+{name2}";                       #匹配成功，打印 I saw fred and barney
}
if (/(？P<name1>fred) (and|or) (?P<name2>barney)/) { 
              #支持python风格的写法
	say "I saw $+{name1} and $+{name2}";                       #匹配成功，打印 I saw fred and barney
}
my $name = "fred Flint and barney Flint";
if (/fred (?<lastname>\w+) (and|or) barney (\g{lastname})/) { 
     #使用\g{label}反向引用
	say "I saw $+{lastname}";                                  #匹配成功，打印 I saw Flint
}
if (/fred (?<lastname>\w+) (and|or) barney (\k<lastname>)/) { 
     #使用\k<label>反向引用
	say "I saw $+{lastname}";                                  #匹配成功，打印 I saw Flint
}

2.5.4 自动捕获变量

• perl提供三个不加捕获括号也能使用的变量，但是为了防止和用户定义名称重复，他们的名字有点诡异。
• 虽然这三个变量可以免费使用，但是一旦使用自动捕获变量，其他正则表达式的运行速度也会跟着变慢。
  Perl 5.10之后，为了防止自动捕获变量拖慢程序速度，我们可以指定自动捕获变量的作用范围。修饰符/p只针对当前表达式开启自动捕获变量，但是他们的名字不是$` $& $’ 而是作了相应修改，见下表：

表2.5 自动捕获变量及说明

#!/usr/bin/perl
if ("Hello there, neighbor" =~ /\s(\w+),/) { 
                         #使用自动捕获变量
	print "That was ($`)($&)($').\n";                             #打印： That was (Hello)( there,)( neighbor).
}
if ("Hello there, neighbor" =~ /\s(\w+),/p) { 
                        #使用修饰符/p提升程序速度
	print "That was (${^PREMATCH})(${MATCH})(${^POSTMATCH}).\n";  #打印： That was (Hello)( there,)( neighbor).
}

2.6 regex中的优先级

正则表达式的优先级只有5个级别，见表2.6：
表2.6 正则表达式的优先级(上面优先级高)

• 在理解相当复杂的正则表达式时，就得按照perl的优先级按部就班的分析；
• /\Afred|barney\z/ 表示以fred开头，或者以barney结尾的字符串。
• 在更复杂的正则表达式中，建议增加圆括号，使得意义清晰。

2.7 模式测试程序

在编写perl程序的时候，每个程序员都避免不了要使用正则表达式，但有时候很难轻易看出一个模式能够做什么，下面这个程序非常实用，可以用于检测某些字符串是否能够被指定模式匹配以及在什么为止匹配，在将正则表达式写入主程序之前，不妨先用以下程序测试一番，检验是否复合预期要求；

#!/usr/bin/perl
#可以用以下程序调试正则表达式，验证是否符合我们期望的匹配结果
while (<>) { 
   
	chomp;
	if(/YOUR_PATTERN_GOES_HERE/) { 
   
		say "Matched: |$`<$&>$'|";         #打印：Matched： |before<match>fafter|
	} else { 
   
		say "No match: |$_|";              #打印：No match： |beforematchafter|
	}
}