22、Perl 正则表达式模式匹配全解析

Perl 正则表达式模式匹配全解析

1. 构建模式的更多方法

在 Perl 脚本中，我们可以使用 if 测试和 =~ 操作符来使用模式。若在 $_ 中搜索，甚至可以省略 =~ 部分。现在我们了解了如何用正则表达式语法构建模式，接下来看看在 Perl 脚本中使用模式的不同方式，包括将变量插入模式以及在循环中使用模式。

1.1 模式与变量

此前的示例中，我们在 Perl 脚本测试里将模式作为硬编码的字符集使用。但如果想根据某种输入匹配不同内容，该如何动态更改搜索模式呢？其实很简单，模式和引号一样可以包含变量，变量的值会被替换到模式中，示例代码如下：

$pattern = "^\\d{3}\$";
if (/$pattern/) { ...

相关变量可以包含任意类型的模式字符串，包括元字符。我们可以利用这种技术以不同方式组合模式，或根据输入搜索模式。例如，下面是一个简单的脚本，它会提示你输入一个模式和要搜索的数据，然后根据是否匹配返回 true 或 false ：

#!/usr/bin/perl -w
print 'Enter the pattern: ';
chomp($pat = <STDIN>);
print 'Enter the string: ';
chomp($in = <STDIN&