Perl regex：如何知道匹配数

Question

我循环遍历一系列正则表达式并将其与文件中的行进行匹配，如下所示：

for my $regex (@{$regexs_ref}) {
    LINE: for (@rawfile) {
        /@$regex/ && do {
            # do something here
            next LINE;
        };
    }
}

有没有办法让我知道我有多少匹配项（以便我可以相应地处理它......）？

如果不是，也许这是错误的方法..？当然，我可以为每个正则表达式编写一个配方，而不是循环遍历每个正则表达式。但我不知道最好的做法是什么？

Answer 1

如果您在列表上下文中进行匹配（即基本上分配给列表），您将在列表中获得所有匹配和分组。然后您可以在标量上下文中使用该列表来获取匹配项的数量。

或者我误解了这个问题？

例子：

my @list = /$my_regex/g;
if (@list)
{
  # do stuff
  print "Number of matches: " . scalar @list . "\n";
}

Answer 2

您需要自己跟踪这一点。这是一种方法：

#!/usr/bin/perl

use strict;
use warnings;

my @regexes = (
    qr/b/,
    qr/a/,
    qr/foo/,
    qr/quux/,
);

my %matches = map { $_ => 0 } @regexes;
while (my $line = <DATA>) {
    for my $regex (@regexes) {
        next unless $line =~ /$regex/;
        $matches{$regex}++;
    }
}

for my $regex (@regexes) {
    print "$regex matched $matches{$regex} times\n";
}

__DATA__
foo
bar
baz

Answer 3

在 CA::Parser 的处理中与 /$CA::Regex::Parser{Kills}{all}/ 的匹配相关联，您使用捕获 $1 一直到 $10< /code>，其余大多数使用较少。如果匹配数指的是捕获数（$n 具有值的最高 n），则可以使用 Perl 的特殊 @-< /code> 数组（强调已添加）：

@LAST_MATCH_START

@-

$-[0] 是最后一次成功匹配的开始位置的偏移量。 $-[n] 是与第 n 个子模式匹配的子字符串开头的偏移量，如果子模式不匹配，则为 undef 。
因此，在与 $_ 匹配后，$& 与 substr $_, $-[0], $+[0] - $-[0 ]。同样，$n 与

一致

子字符串 $_, $-[n], $+[n] - $-[n]

如果定义了$-[n]，并且$+与

一致

substr $_, $-[$#-], $+[$#-] - $-[$#-]

可以使用$#-来查找最后一次成功匹配中的最后一个匹配的子组。与$#+对比，数字正则表达式中的子组。与@+比较。

此数组保存当前活动动态范围中最后成功子匹配的开头偏移量。 $-[0] 是整个匹配开始的字符串偏移量。该数组的第 n 个元素保存第 n 个子匹配的偏移量，因此 $-[1] 是 $1 开始的偏移量， $-[2] $2 开始处的偏移量，依此类推。

与某个变量 $var 匹配后：

• $` 与 substr($var, 0, $-[0]) 相同
• $& 与 substr($var, $-[0], $+[0] - $-[0]) 相同
• $' 与 substr($var, $+[0])

相同

• $1 与 substr($var, $-[1], $+[1] - $-[1])

相同

• $2 与 substr($var, $-[2], $+[2] - $-[2])

相同

• $3 与 substr($var, $-[3], $+[3] - $-[3])

相同

用法示例：

#! /usr/bin/perl

use warnings;
use strict;

my @patterns = (
  qr/(foo(bar(baz)))/,
  qr/(quux)/,
);

chomp(my @rawfile = <DATA>);

foreach my $pattern (@patterns) {
  LINE: for (@rawfile) {
    /$pattern/ && do {
      my $captures = $#-;
      my $s = $captures == 1 ? "" : "s";
      print "$_: got $captures capture$s\n"; 
    };
  }
}

__DATA__
quux quux quux
foobarbaz

输出：

foobarbaz: got 3 captures
quux quux quux: got 1 capture

Answer 4

下面的代码怎么样：

my $string = "12345yx67hjui89";    
my $count = () = $string =~ /\d/g;
print "$count\n";

它按预期打印 9。