配列に要素が存在するかチェックする

配列に要素が存在するかチェックするには、foreachで１個づつチェックしても良いですが、以下のようにすればより短い行数ですみます。

grepを使用

---

@foo = ('A', 'B', 'C');

if (grep {$_ eq 'B'} @foo) {
    print "exists\n";
}

---

Listを使用

---

use List::Util;

@foo = ('A', 'B', 'C');

if (List::Util::first{$_ eq 'C'} @foo) {

    print "exists\n";

}

---