raku - 如何在 Perl 6 正则表达式中匹配相同数量的不同原子？

Question

应该很简单，但我无法应付。

我想匹配完全相同数量的a s 为 b s。所以，以下

my $input = 'aaabbbb';
$input ~~ m:ex/ ... /;

应该产生:

aaabbb
aabb
ab

更新:以下变体不起作用，可能是因为 :ex错误，在 @smls's answer 中提到(但更有可能是因为我犯了一些错误？):

> my $input = "aaabbbb";
> .put for $input ~~ m:ex/ (a) * (b) * <?{ +$0 == +$1 }> /;
Nil
> .put for $input ~~ m:ex/ (a) + (b) + <?{+$0 == +$1}> /;
Nil

这个，用 :ov和 ? ，作品:

> my $input = "aaabbbb";
> .put for $input ~~ m:ov/ (a)+ (b)+? <?{+$0 == +$1}> /;
aaabbb
aabb
ab

UPD2:以下解决方案适用于 :ex也一样，但我必须在没有 <?...> 的情况下做断言。

> $input = 'aaabbbb'
> $input ~~ m:ex/ (a) + (b) + { put $/ if +$0 == +$1 } /;
aaabbb
aabb
ab

Answer 1

my $input = "aaabbbb";
say .Str for $input ~~ m:ov/ (a)+  b ** {+$0} /;

输出:

aaabbb
aabb
ab

它应该与 :ex 一起使用而不是 :ov ，也是 - 但是 Rakudo bug #130711目前阻止了这一点。