perl6 – 检查强制是否会成功?

前端之家收集整理的这篇文章主要介绍了perl6 – 检查强制是否会成功?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
特定

my $t=+"aaa";

在使用$t之前,是否有可能检查强制是否会成功(我知道它不在这里)?

顺便说一句:我真正想做的是检查一个字符串是否是一个有效的整数.我知道我可以为此目的使用正则表达式,但我认为有一个更简单的解决方案.

解决方法

‘aaa’导致失败,这是一种Nil,有点像未定义的值.
这意味着您可以使用任何适用于它们的东西.

my $t = +$s with +$s; # $t remains undefined
my $t = +$s // 0; # $t === 0
my $t = (+$s).defined ?? +$s !! 0;

因为你想要做的是检查它是否是一个Int

my $t = +$s ~~ Int ?? +$s !! 0; # Failures aren't a type of Int
my $t = 0;
with +$s {
  when Int { $t = $_ }
  default { ... } # +$s is defined
} else {
  ... # optional else clause
}

猜你在找的Perl相关文章