Perl 中的模式匹配是如何工作的？答案

【问题标题】：How does pattern matching work in Perl?Perl 中的模式匹配是如何工作的？
【发布时间】：2013-02-12 21:58:03
【问题描述】：

我想知道模式匹配在 Perl 中是如何工作的。

我的代码是：

my $var = "VP KDC T. 20, pgcet. 5, Ch. 415, Refs %50 Annos";

if($var =~ m/(.*)\,(.*)/sgi)
{
    print "$1\n$2";
}

我了解到应该匹配第一次出现的逗号。但这里最后一次匹配。我得到的输出是：

VP KDC T. 20, pgcet. 5, Ch. 415
 Refs %50 Annos

谁能解释一下这种匹配是如何工作的？

【问题讨论】：

【解决方案1】：

来自docs：

默认情况下，量化的子模式是“贪婪的”，也就是说，它会尽可能多地匹配（给定一个特定的起始位置），同时仍然允许模式的其余部分匹配

所以，首先(.*) 会尽可能多地占用。

简单的解决方法是使用非贪婪量词：*?。或者不是匹配每个字符，而是除逗号之外的所有字符：([^,]*)。

【讨论】：

【解决方案2】：

在你的正则表达式中使用问号：

if($var =~ m/(.*?)\,(.*)/sgi)
{
    print "$1\n$2";
}

所以：

【讨论】：

【解决方案3】：

贪婪和非贪婪匹配

Perl 正则表达式通常匹配可能的最长字符串。

例如：

my($text) = "mississippi";
$text =~ m/(i.*s)/;
print $1 . "\n";

运行前面的代码，你会得到：

ississ

它匹配第一个 i，最后一个 s，以及它们之间的所有内容。但是，如果您想将第一个 i 与最接近它的 s 匹配怎么办？使用此代码：

my($text) = "mississippi";
$text =~ m/(i.*?s)/;
print $1 . "\n";

现在看看代码产生了什么：

is

显然，问号的使用使匹配变得不贪心。但是还有一个问题是正则表达式总是尽可能早地匹配。

【讨论】：

【解决方案4】：

(.*)\, - 你可能认为它会匹配到第一个逗号。但是它足够贪婪地匹配它遇到的所有 xcharacters，直到最后一个逗号而不是第一个逗号。所以它匹配到最后一个命令。第二个匹配是该行的其余部分。

为了避免贪婪的模式匹配在?之后添加*

【讨论】：