OR operator

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

Replies are listed 'Best First'.
•Re: OR operator by merlyn (Sage) on Apr 10, 2003 at 00:55 UTC
Neither. It's `if ($color eq "red" or $color eq "blue" or $color eq "green") { ... }` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: OR operator by DrManhattan (Chaplain) on Apr 10, 2003 at 00:54 UTC
Here's a correct syntax: `if ($color eq "red" \|\| $color eq "blue" \|\| $color eq "green") { # something }` [download] -Matt	[reply] [d/l]
Re: OR operator by DrManhattan (Chaplain) on Apr 10, 2003 at 01:15 UTC
And just for grins: `if (grep { $color eq $_ } qw(red green blue)) { # something }` [download] -Matt	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: OR operator by Coruscate (Sexton) on Apr 10, 2003 at 01:04 UTC
Also, you could use a regex to do this. As well, you could add the 'i' modifier to the regex if you wish to allow case-insensitivity, to allow such things as 'Red', 'GrEeN', 'BLUe': `if ($color =~ /\A(?:red\|blue\|green)\z/) { # do something here }` [download] Update: Fixed code to use \A and \z as mentioned below by Juerd and merlyn. I still haven't shaken the habit of using the nasty ^ and $ anchors. I also don't like the use of the /s modifier much, so I had best get used to the better-used anchors. If the above content is missing any vital points or you feel that any of the information is misleading, incorrect or irrelevant, please feel free to downvote the post. At the same time, please reply to this node or /msg me to inform me as to what is wrong with the post, so that I may update the node to the best of my ability.	[reply] [d/l]
Re: Re: OR operator by merlyn (Sage) on Apr 10, 2003 at 01:08 UTC
It also allows `"ReD\n"`, `"grEEn\n"`, and `"BLUE\n"`. Maybe you wanted `/\A(?i:red\|blue\|green)\z/` instead? -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: Re: OR operator by Juerd (Abbot) on Apr 10, 2003 at 01:08 UTC
if ($color =~ /^(?:red\|blue\|green)$/) { Remember that `"red\n" =~ /^red$/` is true. Are you sure you want to use $ there, or did you really mean to use \z? Juerd - http://juerd.nl/ - spamcollector_perlmonks@juerd.nl (do not use).	[reply] [d/l]
Re: OR operator by tachyon (Chancellor) on Apr 10, 2003 at 01:08 UTC
In addition to the above you can use a RE perlre and do: `if ( $color =~ m/^(red\|green\|blue)$/ ) { blah }; # a common perl idiom is: my @colors = qw( red green blue pink fuscia ); my $color_re = join '\|', @colors; $color_re = qr/$color_re/; # compile RE for efficiency if ( $color =~ m/^(?:$color_re)$/ ) { blah }` [download] Note the ?: stops capturing the color matched in the RE in $1 cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]
•Re: Re: OR operator by merlyn (Sage) on Apr 10, 2003 at 01:10 UTC
This too suffers from the "$ matches before \n" bug mentioned elsewhere in the thread. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: •Re: Re: OR operator by tachyon (Chancellor) on Apr 10, 2003 at 01:13 UTC
So use \z if it make you happy - it all depends upon your context. I didn't bother cause I knew someone to rise to the bait {grin}. I can be an important point (usually it is not) so it deserves reiteration. cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply]
Re: OR operator (hash) by tye (Sage) on Apr 10, 2003 at 16:55 UTC
So many responses... But you are all WRONG! `my %primary; BEGIN { @primary{qw( red blue green )}= (1)x3; } ... if( $primary{$color} ) { ....` [download] ;) - tye	[reply] [d/l]
Re^2: OR operator (hash) by Aristotle (Chancellor) on Apr 13, 2003 at 16:02 UTC
`BEGIN { @primary{qw( red blue green )} = (); } if(exists $primary{$color})` [download] :P Makeshifts last the longest.	[reply] [d/l]
Re: OR operator by kelan (Deacon) on Apr 10, 2003 at 14:48 UTC
In Perl6, you'll be able to use something very close to this syntax, though. `### <Perl6> if ($color eq ("red" \| "blue" \| "green")) {} if ($color eq any("red", "blue", "green")) {} ### </Perl6>` [download] kelan Perl6 Grammar Student	[reply] [d/l]