如何在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