如何在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]包含所有结果.

Answer 2

我找到了解决方案RosettaCode.

http://rosettacode.org/wiki/Count_occurrences_of_a_substring#Perl_6

say '01001011'.comb(/1/).elems;     #prints 4