Re^2: Sparing multiple 'or's

Note that the results for the examples of the two methods differ:

c:\@Work\Perl\monks>perl -wMstrict -le
"my @cases = qw/ABA SCO ACC PHC GHF/;
 my $re = join '|', @cases;
 ;;
 for my $text ('SCO', 'ENDOSCOPE', 'Microsoft') {
   print qq{'$text' found (grep)}  if grep { $text eq $_ } @cases;
   print qq{'$text' found (regex)} if $text =~ /^$re$/;
   }
"
'SCO' found (grep)
'SCO' found (regex)
'ENDOSCOPE' found (regex)
[download]

See haukex's Building Regex Alternations Dynamically.

Give a man a fish: <%-{-{-{-<

Comment on Re^2: Sparing multiple 'or's Select or Download Code

Replies are listed 'Best First'.
Re^3: Sparing multiple 'or's by hippo (Archbishop) on Jun 04, 2018 at 21:02 UTC
Good catch (++). As dave_the_m suggested we can use brackets in this case: `#!/usr/bin/env perl use strict; use warnings; use utf8; my @cases = qw/ABA SCO ACC PHC GHF/; my $re = join '\|', @cases; for my $text ('SCO', 'ENDOSCOPE', 'Microsoft') { print "$text found (grep)\n" if grep {$text eq $_} @cases; print "$text found (regex)\n" if $text =~ /^($re)$/; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Sparing multiple 'or's
by hippo (Archbishop) on Jun 04, 2018 at 21:02 UTC

Good catch (++). As dave_the_m suggested we can use brackets in this case:

#!/usr/bin/env perl 
use strict;
use warnings;
use utf8;

my @cases = qw/ABA SCO ACC PHC GHF/;
my $re = join '|', @cases;

for my $text ('SCO', 'ENDOSCOPE', 'Microsoft') {
    print "$text found (grep)\n" if grep {$text eq $_} @cases;
    print "$text found (regex)\n" if $text =~ /^($re)$/;
}
[download]

[reply]
[d/l]