在Perl的~~对面

在Perl中操作符是否存在相反的情况？我用它来匹配数组中的元素,如下所示：

my @arr = qw /hello ma duhs udsyyd hjgdsh/;
print "is in\n" if ('duhs' ~~ @arr);

这个打印是.非常酷,因为我不必迭代所有数组并比较每个记录.我的问题是,如果我没有匹配,我想做点什么.我可以去另一边,但我宁愿找到相反的“~~”

解决方法

除非==如果没有

print "is not in\n" unless ('duhs' ~~ @arr);

注意：智能匹配在perl 5.18中是实验性的.请参阅Smart matching is experimental/depreciated in 5.18 – recommendations?所以请改用以下内容：

print "is not in\n" unless grep { $_ eq 'duhs' } @arr;