perl で配列に要素が含まれているか調べる方法 | dTblog | デザインとプログラムの境界をさまようブログ

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

[kiyo_hiko]

containsは標準でほしい。ブログ主のコードは読むの苦痛ではないが、中にはLogicにまんまループ書く人がいてイライラする / 短絡しないが sub find{my ($x, ＠ys)=＠_;(grep{$_ eq $x}＠ys)?$x:return}my ＠xs=qw/3 1 4 1 5 9 2 6 5 3 5/;print find(6,＠xs)