Re: matching elements in a list in a logical OR fashion

This is one of my favorite tricks,

my $re = do {
    local $" = '|';
    qr/@array/;
};

if ($bigstring =~ /$re/ ) {
    #...
}
[download]

The customary way is to join '|', @array in constructing the regex.

If @array has regex metacharacters, it may be needful to escape them:

my $re = do {
    local $" = '|';
    qr/@{[map { quotemeta } @array]}/;
};
[download]

After Compline,
Zaxo

Comment on Re: matching elements in a list in a logical OR fashion Select or Download Code

Replies are listed 'Best First'.
Re^2: matching elements in a list in a logical OR fashion by meetraz (Hermit) on Jun 15, 2004 at 04:03 UTC
This might be even faster, depending on what's in @array... Regex::Presuf works wonders, and /o usually helps too. `use strict; use Regex::PreSuf; my @array = qw( foo bar baz ); my $re = presuf(@array); my $bigstring = 'whatever'; if ($bigstring =~ /$re/o) { print "it matched"; }` [download]	[reply] [d/l]
Re^2: matching elements in a list in a logical OR fashion by hardburn (Abbot) on Jun 15, 2004 at 13:57 UTC
For the metacharacters case, how about this: `my $re = do { local $" = '\E\|\Q'; qr/\Q@array\E/; };` [download] That lets you ditch the `map` and array refernceing/dereferencing inside the regex. Though it is arguably not as clear. ---- send money to your kernel via the boot loader.. This and more wisdom available from Markov Hardburn.	[reply] [d/l] [select]
Re^2: matching elements in a list in a logical OR fashion by didier (Vicar) on Jun 15, 2004 at 06:25 UTC
Thank for that, Zaxo. That's really nice.	[reply]