regex - Perl 中的正则表达式匹配计数

Question

我正在匹配 A<=>B!C<=>D!E<=>F... 形式的字符串，并希望对字母进行检查。基本上我想根据我定义的散列来判断这些字母是否在类(class)中。我想到了执行以下正则表达式，然后遍历匹配的字符串:

$a =~ /(.)<=>(.)/g;

但我不知道有多少 $1、$2 变量匹配。我怎么知道有多少？另外，有没有更好的方法来做到这一点？我正在使用 Perl 5.8.8。

Answer 1

您需要“countof”运算符计算匹配项的数量:

my $count = () = $string =~ /(.)<=>(.)/g;

用数组替换空列表将保留匹配项:

my @matches = $string =~ /(.)<=>(.)/g;

这提供了另一种获取$count的方法:

my $count = @matches;   # scalar @matches works too