■

配列中の値存在確認サブルーチン
配列中にある値が存在するかどうかを精査するPHPの組み込み関数in_array()は、Perlには存在しない。
これをPerlで再現する場合以下のようにする。

sub in_array() {
    my $val = shift(@_);
 
    foreach $elem(@_) {
        if($val == $elem) {
            return 1;
        }
    }
    return 0;
}

これは数値比較なので、文字列比較を行いたい時は5行目を

if($val eq $elem)

とする。