在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;