如何在perl6中找到regexp的匹配数？

发布时间：2020-12-15 21:53:16 所属栏目：大数据来源：网络整理

导读：在Perl 5中我们可以写 my @things = $text =~ /thing/g; 标量上下文中的$thing是字符串$text中子字符串事件的非重叠出现次数. 在Perl 6中如何做到这一点？解决方法你可以这样做： my $text = 'thingthingthing'my @things = $text ~~ m:g/thing/;say +@thi

在Perl 5中我们可以写

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

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

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

解决方法

你可以这样做：

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

~~左侧与右侧匹配,m：g使测试返回包含所有结果的List [Match].

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!