正则表达式和匹配

Perl 操作文本的强大能力部分来源于对一个名为正则表达式的计算概念的囊括。正则 表达式（通常简化为regex或regexp）是一个模式，它描述了某文本字符串的 特征。正则表达式引擎解释一个模式并将其应用到文本字符串上，以识别何者匹配。

Perl 的核心文档丰富而详细地描述了 Perl 的正则表达式；请参考perldoc perlretut教程、perldoc perlre完整文档和perldoc perlreref参考指南。Jeffrey Friedl 的著作精通正则表达式解释了正则表达式工作背后的理论和机制。即便这些参考书看上 去令人望而生畏，正则表达式却很像 Perl ———— 你可以在懂得很少的情况下完成很多任务。

字面值

最简单的正则表达式就是简单的子字符串模式：

my $name = 'Chatfield';
    say "Found a hat!" if $name =~ /hat/;

匹配操作符（//或者，更为正式的m//）中包含一正则表达式————在这个例子中是hat。即使读上去像一个单词，它的意思其实是“h字符，后接a字符，再接t字符，出现在该字符串的任何地方”。在hat中的每一个字符都是一个正则表达式中的原子：该模式独立的单元。正则表达式绑定操作符（=~）是一个中缀操作符（词缀性） ，它将位于其右的正则表达式应用于左边由表达式产生的字符串。当在标量上下文中求值时， 一个成功的匹配将得到真值。

绑定操作符的否定形式（!~）在匹配成功时得到一个假值。

qr// 操作符和正则表达式组合

在现代化的 Perl 中，当由qr//操作符创建时，正则表达式是第一级实体：

my $hat = qr/hat/;
    say 'Found a hat!' if $name =~ /$hat/;

来自Test::More的like()函数的工作就像is()一样，除了它的第 二个参数是一个由qr//产生的正则表达式对象。

你可以通过内插和组合将他们变为更大更复杂的模式：

my $hat   = qr/hat/;
    my $field = qr/field/;

    say 'Found a hat in a field!' if $name =~ /$hat$field/;

    # 或

    like( $name,qr/$hat$field/,'Found a hat in a field!' );