使用Perl 6中的字符串值从数组中建立联结

时间:2017-10-25 08:45:59

标签: perl6

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

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

1 个答案:

答案 0 :(得分:8)

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()函数的语法糖一样。他们都返回Junction s,您可以使用例如{1}} so函数。当然,如果你打算在有条件的情况下使用它,你不需要自己崩溃它,Bool条件的条件将为你做到:

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

另请参阅:https://docs.perl6.org/type/Junction