如何在Perl 6中统计正则表达式的匹配次数？

算力阿峰

2026-5-21

Perl 6中获取非重叠子串匹配次数的方法

嘿，刚好我对Perl 6的正则处理比较熟，来给你讲讲怎么实现类似Perl 5的这个功能～

在Perl 6里，你有几种简洁的方式可以拿到字符串中非重叠子串的匹配次数：

使用.match方法：
Perl 6的正则匹配更偏向面向对象的写法，你可以调用字符串的.match方法，加上:g（全局匹配）参数，然后通过.elems获取匹配结果的数量：
```
my $text = "thing1 thing2 thing3";
my $count = $text.match(/thing/, :g).elems;
say $count; # 输出3
```
使用.comb方法：
.comb方法专门用来把字符串拆分成符合指定模式的子串列表，直接取列表的长度就是匹配次数，非常直观：
```
my $text = "thingabc thingdef";
my $count = $text.comb(/thing/).elems;
say $count; # 输出2
```
模拟Perl 5的标量上下文写法：
如果你想更贴近Perl 5那种标量上下文的感觉，可以用智能匹配操作符~~加上全局匹配修饰符:g，再用+强制转换为数值（也就是匹配次数）：
```
my $text = "thingthingthing";
my $count = +($text ~~ m:g/thing/);
say $count; # 输出3（因为是非重叠匹配）
```