配列中の値存在確認サブルーチン 配列中にある値が存在するかどうかを精査するPHPの組み込み関数in_array()は、Perlには存在しない。 これをPerlで再現する場合以下のようにする。 sub in_array() { my $val = shift(@_); foreach $elem(@_) { if($val == $e…