ある配列に特定の要素が含まれているかどうか知りたいとき、 java では List#contains が用意されていますが、どうやら perl では標準で用意されていないんですね。ここら辺を自前で書くのが perl 流といったところでしょうか。

#!/usr/bin/perl -l


my @array = qw/a b c d e f g/;
undef %tmp;
for (@array) { $tmp{$_} = 1; }


print $tmp{"a"} ? 'true' : 'false';
print $tmp{"h"} ? 'true' : 'false';

数値配列で有無をチェックする場合は、vec を使う方法で軽くできるとのこと。

関連記事

perl で mkdir -p

perl でビット演算の結果を数値比較する際の注意点