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

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

1. 正则表达式的构建与优化

1.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/;

在更大的模式中使用这些正则表达式引用时，元字符仍然保持其特殊含义。这种方法让我们可以将长而复杂的模式分解为更小、更易处理的部分。

1.2 构建URL匹配正则表达式

通过一系列的正则表达式引用，我们可以将RFC 1738中指定的URL格式转换为正则表达式：

my $alpha       = qr/[a−z]/;
my $digit       = qr/\d/;
my $alphadigit  = qr/(?i:$alpha|$digit)/;
# 其他模式定义...
my $httpurl = qr|$scheme$hostport(?:/$hpath(?:\?$search)?)?|;
while( <> ) {
  say if /$httpurl/;
}
</