ある配列に特定の要素が含まれているかどうか知りたいとき、 java では List#contains が用意されていますが、どうやら perl では標準で用意されていないんですね。ここら辺を自前で書くのが perl 流といったところでしょうか。
1 2 3 4 5 6 7 8 9 10 | #!/usr/bin/perl -lmy @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 を使う方法で軽くできるとのこと。
Posted by dT 16:50
| Comments (0)
| TrackBacks (0)
| Permlink |
![お問い合わせ: deftrash[at]gmail.com](http://www.deftrash.com/blog/images/copyright.png){kind=small}