Oracle IN like operator in Perl

paragkalra has asked for the wisdom of the Perl Monks concerning the following question:

Hello All,

Wanted to know if we have a IN like operator in Perl just the way we have in Oracle.

My requirement is to check if particular value is one the values of a list.

I know there are many ways to do so but I am looking for a one liner operator.

Comment on Oracle IN like operator in Perl

Replies are listed 'Best First'.
Re: Oracle IN like operator in Perl by Old_Gray_Bear (Bishop) on Dec 28, 2009 at 10:38 UTC
Take a look at List::MoreUtils, specifically `any()`. ---- I Go Back to Sleep, Now. OGB	[reply] [d/l]
Re: Oracle IN like operator in Perl by JavaFan (Canon) on Dec 28, 2009 at 12:57 UTC
`if ($val ~~ ['val1', 'val2', 'val3', 'val4']) {...}` [download]	[reply] [d/l]
Re: Oracle IN like operator in Perl by amir_e_a (Hermit) on Dec 28, 2009 at 19:07 UTC
~~, the Smatch Match Operator introduced in Perl 5.10 and already mentioned by JavaFan is probably the best thing for you. See Smart matching in detail in the Perl documentation for more details. It only works in Perl 5.10 and later. If you are using an earlier version, you should consider upgrading. If you can't upgrade, grep and the functions in List::Util and List::MoreUtil may do what you need. Note that grep has a performance price, as it always goes over the entire list, but on small lists it's not significant.	[reply]
Re: Oracle IN like operator in Perl by Anonymous Monk on Dec 28, 2009 at 15:43 UTC
Something like this might work? `grep /\bwhatever\b/,@array;` [download]	[reply] [d/l]