代码之家 › 专栏 › 技术社区 › librasteve

在perl6中为regex设置默认值的更简洁的方法

raku

librasteve · 技术社区 · 7 年前

要将例如mins-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,因为这对调用者没有用处。

有谁说得更好吗?

2 回复 | 直到 7 年前

moritz 7 年前

使用good old怎么样 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)

Elizabeth Mattijsen 7 年前

这并不能准确地再现您的算法(尤其是不会产生负数),但我怀疑它更接近您实际想要实现的目标:

sub split-order($_) {
    /^ (.*?) [\-(\d+)]? $/;
    (~$0, +($1 // 1));
}

推荐文章

jjmerelo · 使用Proc::Async从绑定管道读取

7 年前

Eugene Barsky · Perl 6中多针的索引

7 年前

Håkon Hægland · 如何通过扩展模块所使用的类来扩展模块?

7 年前

librasteve · Perl6-某些子程序签名中的$:for是什么

7 年前

chenyf · Perl 6中后缀或后循环前的点是什么意思?

7 年前

Martin Barth · rakudo star docker映像上带DBIish的mysql安装要求

7 年前

chenyf · Perl 6中的星形表达式与Python中的星形表达式有什么等价关系?

7 年前

jjmerelo · m和rx之间有什么区别吗?

7 年前

Elizabeth Mattijsen · 本机localtime()segfaults

7 年前

Hunter McMillen zellus · 在Perl 6中,可以使用数组作为哈希键吗?

7 年前