如何通过分组仅捕获 Perl 正则表达式的一部分？

Question

我目前正在尝试从文件中提取日期并将它们直接输入到数组中。我的正则表达式正在工作，但其中有 6 个组，所有这些组都被添加到数组中，而我只想要第一个组。

@dates = (@dates, ($line =~ /((0[1-9]|[12][0-9]|3[01])(\/|\-)(0[1-9]|1[0-2])(\/|\-)([0-9][0-9][0-9][0-9]|[0-9][0-9]))/g ));

有没有一种简单的方法来获取 Perl 正则表达式的 $1 组？

我的输出如下所示：

13/04/2009, 13, /, 04, /, 2009, 14-12-09, 14, -, 12, -, 09

Answer 1

当我下次拿起代码时，该正则表达式看起来会让我感到困惑。
我会打破它：

    my $date= qr/
       (?:0[1-9]|[12][0-9]|3[01])           # day
       (?:\/|\-)
       (?:0[1-9]|1[0-2])                    # month
       (?:\/|\-)
       (?:[0-9][0-9][0-9][0-9]|[0-9][0-9])  #year
       /x ;

您可以使用 You an simple the seperator bit 将元素添加到数组中

    push @dates,   ($line =~ /($date)/ ) ;

（请注意，我已更改为使用 ( ) 而不是 / / 以避免必须反斜杠 /

    my $date= qr (
       (?: 0[1-9] | [12][0-9] | 3[01]       # day
       [/-]
       (?:0[1-9]|1[0-2])                    # month
       [/-]
       (?:\d{4}|\d{2})                      #year
       )x ;

Answer 2

刚刚找到了。您可以通过在组开头使用 ?: 创建被动组。

@dates = (@dates, ($line =~ /((?:0[1-9]|[12][0-9]|3[01])(?:\/|\-)(?:0[1-9]|1[0-2])(?:\/|\-)(?:[0-9][0-9][0-9][0-9]|[0-9][0-9]))/g ));

通过使所有其他组处于被动状态，现在只有第一组被添加到阵列中。