Re^2: creating a regular expression's alternation dynamically?


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^2: creating a regular expression's alternation dynamically?

by integral (Hermit)

on Aug 06, 2004 at 14:39 UTC ( [id://380572]=note: print w/replies, xml )

Need Help??

in reply to Re: creating a regular expression's alternation dynamically?
in thread creating a regular expression's alternation dynamically?

In the join, you might want to map quotemeta over @list so that any meta-chars (particulary |) get escaped.

Also you have to be careful that none of the strings are prefixes of another string, otherwise you'll find that ordering is significant in an alternation.

--
integral, resident of freenode's #perl

Comment on Re^2: creating a regular expression's alternation dynamically? Download Code

Replies are listed 'Best First'.

Re^3: creating a regular expression's alternation dynamically?
by mifflin (Curate) on Aug 06, 2004 at 17:27 UTC

use strict;
use warnings;
#   create alternation
my @list;
while (<DATA>) {
    chomp;
    push @list, $_;
}
my $regex = '^(' . join('|', map {quotemeta} @list) . ')$';
my $s = 'huey';
print "regex = $regex\n";
print "match:\t$1\n" if $s =~ m/$regex/;
__DATA__
huey
de|wey
louie
[download]

# perl test.pl
regex = ^(huey|de\|wey|louie)$
match:  huey
[download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://380572]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others romping around the Monastery: (2)

As of 2024-04-25 03:46 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found