raku - 在Perl6中为regex设置默认值的更简洁方法

Question

分割例如分钟2成单位名称和顺序的组成部分，这就是我想要的

sub split-order ( $string ) {
    my Str $i-s = '1';
    $string ~~ / ( <-[\-\d]>+ ) ( \-?\d? ) /;
    $i-s = "$1" if $1 ne '';
    return( "$0", +"$i-s".Int );
}

似乎perl6应该能够将其打包成更加简洁的措词。我需要没有尾数的默认顺序为1。

我可能有点懒，没有将行尾与$匹配。尝试避免返回Nil，因为这对调用者没有用。

有人说得更好吗？

Answer 1

使用旧的split怎么样？

use v6;

sub split-order(Str:D $in) {
    my ($name, $qty) = $in.split(/ '-' || <?before \d>/, 2);
    return ($name, +($qty || 1));
}

say split-order('mins-2');  # (mins 2)
say split-order('foo42');   # (foo 42)
say split-order('bar');     # (bar 1)