perl で配列に要素が含まれているか調べる方法

ある配列に特定の要素が含まれているかどうか知りたいとき、 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 を使う方法で軽くできるとのこと。

このエントリーのトラックバックURL
http://www.deftrash.com/admin/mt4/mt-tb.cgi/520