这就是我想要做的.它应该很简单,但我无法弄清楚如何正确地做到这一点.
> 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
