Need help using or in perl.

[Perlguy128]

I'm making a program that has a number random out of 64, and when it lands on that number, a variable is set to that number. Then it does random again and before doing anything else it checks to see that the number isn't equal to one of the 64 variables.
But I need help with something else.

if($var eq $a || $var eq $b || $var eq $c)

I need it to check like this every variable at once so if it's equal to all of them it goes to another part of the program. The problem is I have so many variables, they won't fit on one line, so is it possible to put the if on two lines or perhaps shorten it?

 

[MillerH]

[gray][i]# Manually List out the values[/i][/gray]
[olive][b]if[/b][/olive] [red]([/red][url=http://perldoc.perl.org/functions/grep.html][black][b]grep[/b][/black][/url] [red]{[/red][blue]$var[/blue] eq [blue]$_[/blue][red]}[/red] [red]([/red][blue]$a[/blue], [blue]$b[/blue], [blue]$c[/blue], [blue]$d[/blue], [blue]$e[/blue], [blue]$f[/blue][red])[/red][red])[/red] [red]{[/red]

[gray][i]# Or accumulate your list into an array[/i][/gray]
[olive][b]if[/b][/olive] [red]([/red][black][b]grep[/b][/black] [red]{[/red][blue]$var[/blue] eq [blue]$_[/blue][red]}[/red] [blue]@valuesToTest[/blue][red])[/red] [red]{[/red]

- Miller

 

[KevinADC]

This can be done quite easily with a few lines of code. See this FAQ:

Get 'x' number of unique, random, elements from an array

http://www.tek-tips.com/faqs.cfm?fid=6535

------------------------------------------
- Kevin, perl coder unexceptional!