检查强制是否会成功？

Question

鉴于

my $t=+"aaa";

是否有可能在使用$ t之前检查强制是否会成功（我知道它不在这里）？

BTW：我真正想做的是检查一个字符串是否是一个有效的整数。我知道我可以为此目的使用正则表达式，但我认为有一个更简单的解决方案。

Answer 1

+'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
}

Answer 2

又一个版本：

my $t = +"aaa" orelse note "could not coerce to numeric type";
say $t.^name; # Failure

orelse是//的低优先级版本。在这个版本中，$t的分配仍然发生，但是对定义的检查会处理失败，即它不会爆炸并引发错误。

Answer 3

将其包裹在try块中以捕获异常。

my $t;
try {
  $t = +"aaa";
  CATCH { say "the coercion didn't work" when X::Str::Numeric; }
}