14、Perl正则表达式与排序技巧全解析

Perl正则表达式与排序技巧全解析

1. 构建正则表达式

在处理正则表达式时，我们可以通过预编译模式并将其插入到匹配操作符中，还能将模式插入到其他模式里，以此从较小、更易管理的部分构建复杂模式。例如：

my $howells    = qr/Thurston|Mrs/;
my $tagalongs  = qr/Ginger|Mary Ann/;
my $passengers = qr/$howells|$tagalongs/;
my $crew       = qr/Gilligan|Skipper/;
my $everyone   = qr/$crew|$passengers/;

当在更大的模式中使用正则表达式引用时，任何正则表达式元字符仍然具有特殊意义。像 $howells 和 $tagalongs 中的交替在 $passengers 中依然是交替。这使我们能够将长而复杂的模式分解为更小、易于理解的块，并以我们喜欢的任何方式组合它们。

下面是一个更长的示例，将RFC 1738中指定的URL格式转换为正则表达式：

my $alpha       = qr/[a−z]/;
my $digit       = qr/\d/;
my $alphadigit  = qr/(?i:$alpha|$digit)/;
my $safe        = qr/[\$_.+−]/;
my $extra       = qr/[!*'\