Re: How to find out if X is an element in an array?

$X = "x";
@array = qw / x y z 1 2 3 /;
return exists {map { $_ => 1 } @array}->{$X};
[download]

The above code returns 1 if element found, undef if not found.

Comment on Re: How to find out if X is an element in an array? Download Code

Replies are listed 'Best First'.
Re: Answer: How to find out if X is an element in an array? by NetWallah (Canon) on Sep 10, 2003 at 06:29 UTC
Hmm - This method will not scale well because it creates a temporary hash. If this is a repeated search in a large array, you would be doing a lot of memory management. Here is the equivalent code, using grep: `$X = "x"; @array = qw / x y z 1 2 3 /; return scalar grep(/^$X$/,@array) > 0;` [download] The "scalar" isnt really necessary, but it documents the fact that grep is called in a scalar context.	[reply] [d/l]

Replies are listed 'Best First'.

Here is the equivalent code, using grep:

$X = "x";
@array = qw / x y z 1 2 3 /;
return scalar grep(/^$X$/,@array) > 0;
[download]