不能取消引用正则表达式中的子模式？

Question

我遵循 Perl 脚本从日志中提取数字。当我在变量中定义子模式时，?: 的非捕获组似乎不起作用。只有当我在正则表达式模式或$number 中的子模式中省略分组时，它才有效。

#!/usr/bin/perl
use strict;
use warnings;

my $number = '(:?-?(?:(?:\d+\.?\d*)|(?:\.\d+))(?:[Ee][+-]?\d+)?)';
#my $number = '-?(?:(?:\d+\.?\d*)|(?:\.\d+))(?:[Ee][+-]?\d+)?';

open(FILE,"file.dat") or die "Exiting with: $!\n";
while (my $line = <FILE>) {
        if ($line =~ m{x = ($number). y = ($number)}){
        print "\$1= $1\n";
        print "\$2= $2\n";
        print "\$3= $3\n";
        print "\$4= $4\n";
    };
}
close(FILE);

此代码的输出如下所示：

$1= 12.15
$2= 12.15
$3= 3e-5
$4= 3e-5

输入：

asdf x = 12.15. y = 3e-5 yadda

那些双倍的输出是不想要的。

这是因为m{} 样式与正则表达式的常规m// 模式形成对比吗？我只知道在我的正则表达式中获取变量（子字符串）的前一种风格。我只是注意到这一点用于反向引用，所以元字符可能还有其他差异吗？

Answer 1

您用于正则表达式的分隔符不会导致任何问题，但以下是：

(:?-?(?:(?:\d+\.?\d*)|(?:\.\d+))(?:[Ee][+-]?\d+)?)
 ^^
Notice this isn't a capturing group, it is an optional colon :

可能是拼写错误，但它造成了麻烦。

编辑：看起来这不是拼写错误，我替换了正则表达式中的变量，我得到了这个：

x = ((:?-?(?:(?:\d+\.?\d*)|(?:\.\d+))(?:[Ee][+-]?\d+)?)). y = ((:?-?(?:(?:\d+\.?\d*)|(?:\.\d+))(?:[Ee][+-]?\d+)?))
    ^^           first and second group               ^^      ^^    third and fourth grouop                     ^^

如您所见，第一个和第二个捕获组正在捕获完全相同的东西，第三个和第四个捕获组也在发生同样的事情。

Answer 2

你会踢自己的......

你的正则表达式读作：

capture {
 maybe-colon
 maybe-minus
 cluster {     (?:(?:\d+\.?\d*)|(?:\.\d+))
  cluster {    (?:\d+\.?\d*)
   1+ digits
   maybe-dot
   0+ digits
  }
  -or-
  cluster {    (?:\.\d+)
   dot
   1+digits
  }
 }
 maybe cluster {
   E or e
   maybe + or -
   1+ digets
 }             (?:[Ee][+-]?\d+)?
}

...这就是你要找的东西。

但是，当您执行实际的正则表达式时，您会：

$line =~ m{x = $number. y = $number})

（花括号会分散注意力......如果指定了m 或s，则可以使用任何\W）

这要求capture 无论$number 中定义的正则表达式是......它本身就是一个capture.... 因此$1 和$2 是同一件事.

只需从$number 或正则表达式行中删除捕获括号。