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
}

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...