使用智能匹配搜索阵列的正确方法是什么？

1> Kenney..：

---

如果你想完全避免使用smartmatch:

if ( grep { /$string1/ } @array ) {

$string1但是,为了实际匹配,它需要被转义,因此这|并不意味着or:

if ( grep { /\Q$string\E/ } @array ) {

或者只是简单的字符串比较:

if ( grep { $_ eq $string } @array ) {

---

避免smartmatch是好的,因为它是一个可能会改变的实验性功能.

---

我更喜欢[List :: Util](http://perldoc.perl.org/List/Util.html#any)中的`any`,因为一旦找到匹配项,它就会停止搜索列表.

---

此外,OP的正则表达式是未锚定的,因此这可以匹配不等于`$ string1`的元素.他们可能想要`$ _ eq $ string1`(虽然他们也需要'chomp @array;`).