Perl 正则表达式：为什么未捕获可选部分？

Question

我正在尝试捕获最后一部分是可选的匹配项，但如果存在则应该捕获。但如果使用(...)? 是可选的，则不会被捕获。

例如，使用以下 2 行：

some text and number 18
some other text

我想总是捕捉“一些”，如果我看到“数字 18”，就捕捉“18”。

使用/(some).*?(?:number (\d+))/，当然适用于第一行，但不适用于第二行：

$ echo "some text and number 18" | perl -nle '/(some).*?(?:number (\d+))/ && print join("\n", $1, $2)'
some
18
$ echo "some other text" | perl -nle '/(some).*?(?:number (\d+))/ && print join("\n", $1, $2)'
$

但是当使用/(some).*?(?:number (\d+))?/ 使最后一部分可选时，总是捕获第一个匹配项，但数量不是：

$ echo "some text and number 18" | perl -nle '/(some).*?(?:number (\d+))?/ && print join("\n", $1, $2)'
some

$ echo "some other text" | perl -nle '/(some).*?(?:number (\d+))?/ && print join("\n", $1, $2)'
some

$ 

如何捕获可选部分？

Answer 1

你可以使用

/(some)(?:.*?number (\d+))?/

请参阅regex demo。详情：

• (some) - 第 1 组：some
• (?:.*?number (\d+))? - 一个可选的非捕获组，将至少尝试一次，并将尝试匹配 1 次或 0 次
  • .*? - 除换行符之外的任何 0+ 字符，尽可能少
  • number - number 字符串
  • (\d+) - 第 2 组：1 位以上

查看online demo：

perl -nle '/(some)(?:.*?number (\d+))?/ && print join("\n", $1, $2)' <<< "some text and number 18"
# some
# 18
perl -nle '/(some)(?:.*?number (\d+))?/ && print join("\n", $1, $2)' <<< "some other text"
# some