无法让 Perl 正则表达式变得非贪婪

Question

无论我做什么，我的正则表达式都会匹配该行中的最后一组字母字符。我希望它只匹配第一次出现的情况。

我尝试过使用非贪婪运算符，但它顽固地匹配最右边的一组字母字符，在本例中为 $1 提供值“Trig”，这不是我想要的。我希望 $1 为“02.04.07.06 Geerite”。

代码

elsif ($line =~ /\s(\d{2}\.\d{2}\.\d{2}\.\d{2}\s[[:alpha:]]*?)/)
{
    print OUTPUT "NT5 " . $1 . " | | \n";
}

来源

02.04.07.06 Geerite Cu8S5 R 3m、R 3m 或 R 32 Trig

输出

NT2 32 三角 | |

换句话说，我想要这个输出：

NT2 02.04.07.06 Geerite | |

Answer 1

如果我将代码更改为

$line="     02.04.07.06 Geerite Cu8S5 R 3m, R 3m, or R 32 Trig ";
if ($line =~ /\s(\d{2}\.\d{2}\.\d{2}\.\d{2}\s[[:alpha:]]*?)/) { print "NT5 ".$1." | | \n"; }

我会得到以下输出：

NT5 02.04.07.06  | | 

Making the * non-greedy，单词 Geerite 包含在输出中。

您观察到的输出可能来自 if-elsif-else 树的不同分支。

Answer 2

这应该适合您：

perl -e '$_ = "02.04.07.06 Geerite Cu8S5 R 3m, R 3m, or R 32 Trig"; print "$1\n" if /(\d\d\.\d\d\.\d\d\.\d\d \w+)/'

prints:

02.04.07.06 Geerite

正则表达式本身：

/(\d\d\.\d\d\.\d\d\.\d\d \w+)/

Answer 3

使 [[:alpha:]] 贪婪：

$line = '   02.04.07.06 Geerite Cu8S5 R 3m, R 3m, or R 32 Trig';
if ($line =~ /\s(\d{2}\.\d{2}\.\d{2}\.\d{2}\s[[:alpha:]]*)/) {
    print OUTPUT "NT5 " . $1 . " | | \n";
}

输出

NT5 02.04.07.06 Geerite | |

Answer 4

您的正则表达式无法匹配“32 Trig”。一定还有其他问题。

如果我在示例字符串的开头添加一个空格并删除最后一个量词后面的不贪婪的 ? ，它将产生您想要的输出。

$line =~ /\s(\d{2}\.\d{2}\.\d{2}\.\d{2}\s[[:alpha:]]*)/

[[:alpha:]]*? 将尽可能少地匹配，因此由于后面没有更多模式，它将匹配 0 个字符。