regex - 如何在perl6中找到与regexp匹配的数量？

Question

在 Perl 5 中我们可以写

my @things = $text =~ /thing/g;

和 $things在标量上下文中是子串的非重叠出现次数 thing在字符串中 $text .

如何在 Perl 6 中做到这一点？

Answer 1

你可以这样做:

my $text = 'thingthingthing'
my @things = $text ~~ m:g/thing/;
say +@things; # 3

~~将左侧与右侧匹配，m:g使测试返回 List[Match]包含所有结果。