perl6 – 使用Perl 6中的字符串值从数组中创建一个结点

发布时间：2020-12-15 23:21:13 所属栏目：大数据来源：网络整理

导读：这就是我想要做的.它应该很简单,但我无法弄清楚如何正确地做到这一点. my @search_keys = bb cc dd[bb cc dd] my $search_junc = @search_keys.join('|')bb|cc|dd "bb" eq $search_juncFalse 解决方法 my @search_keys = bb cc dd;say "bb" eq any(@search_k

这就是我想要做的.它应该很简单,但我无法弄清楚如何正确地做到这一点.

> my @search_keys = <bb cc dd>
[bb cc dd]
> my $search_junc = @search_keys.join('|')
bb|cc|dd
> "bb" eq $search_junc
False

解决方法

my @search_keys = <bb cc dd>;
say "bb" eq any(@search_keys);     # any(True,False,False)
say so "bb" eq any(@search_keys);  # True

|语法只是调用any()函数的糖.就像&是all()函数的语法糖.他们都返回Junctions,你可以用它们折叠这样的功能.当然,如果你打算在有条件的情况下使用它,你不需要自己崩溃,条件的Boolification将为你做到：

say "found" if "bb" eq any(@search_keys);

另见：https://docs.perl6.org/type/Junction

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!