use v6;
my $bool1 = 1;
my $bool2 = 0;
given ($bool1, $bool2) {
when (0, 0) {say "0, 0"}
when (0, 1) {say "0, 1"}
when (1, 0) {say "1, 0"}
when (1, 1) {say "1, 1"}
}
given ("15", "example", "3.14") {
say $_.WHAT; # ("15", "example", "3.14") => List
when ($, $, Str) { say "I got a String of $_[2]" } # $ 代表一个匿名变量, 表示元组的前两个不参与智能匹配?
}
given (4, 5) {
when ( $, $) {say "Ok"}
}
given ("fly.mp3", 34, "It's funny") {
when (/.mp3$/, /4$/, *.chars > 4) {say "Perfact"}
}
given 5 {
when 1..10 {say "1..10 contains 5"}
}
# > (1,2, "SS") ~~ ($, $, Str)
# True
# > (1,2) ~~ (Int, $)
# True
# > (1,2) ~~ ($, $)
# True
# > (1,2) ~~ ($, Str)
Perl 6 中的 given-when和模式匹配
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
