One liner to check if variable matches any of an array's elements 5

[mikawin]

Hi,

Is there a one-liner code that will check to see if a particular variable's value (for e.g $myVar = "S") matches any of the elements of a pre-defined array(
@myArray = (P Q R S)?

Thanks,
Mika

 

[rharsh]

Take a look at the grep function

if (grep {$myVar} @myArray) {
  # At Least 1 Match - do stuff
} else {
  # No Match - do other stuff
}

 

[MillerH]

Slight enhancement to rharsh's code for completeness:

[olive][b]if[/b][/olive] [red]([/red][url=http://perldoc.perl.org/functions/grep.html][black][b]grep[/b][/black][/url] [red]{[/red][blue]$myVar[/blue] eq [blue]$_[/blue][red]}[/red] [blue]@myArray[/blue][red])[/red] [red]{[/red]
  [gray][i]# At Least 1 Match - do stuff[/i][/gray]
[red]}[/red] [olive][b]else[/b][/olive] [red]{[/red]
  [gray][i]# No Match - do other stuff[/i][/gray]
[red]}[/red]

 

[feherke]

Hi

If you can ignore backward compatibility, Perl 5.10 smart matching operator [tt]~~[/tt] can do this :

[blue]  DB<1>[/blue] @myArray = qw(P Q R S)

[blue]  DB<2>[/blue] $myVar = "S"

[blue]  DB<3>[/blue] print $myVar~~@myArray
1

[blue]  DB<4>[/blue] $myVar = "F"

[blue]  DB<5>[/blue] print $myVar~~@myArray

Feherke.

http://free.rootshell.be/~feherke/

 

[rharsh]

Learned something new, thanks Feherke!

 

[MillerH]

I agree, thanks Feherke. I'm not sure how needed that operator truly is, but it's nice to know about it all the same. Star from me as well.

- MillerH

 

[rharsh]

@MillerH - it short circuits.

Note that the "Matching Code" column is not always an exact rendition. For example, the smart match operator short-circuits whenever possible, but grep does not.