in reply to how can i split a string to an array and convert it into regular expression

If I understand correctly, every line on STDIN is a possible match in a regex you are building. Then one solution is this: 
my @arry = <>;
my $pattern = join('|', @arry);
my $regex = eval("qr/$pattern/");

[download]
That of course assumes that your input isn't doing anything evil (like having a '/' in it).
  • Comment on Re: how can i split a string to an array and convert it into regular expression
  • Download Code

Replies are listed 'Best First'.
Re^2: how can i split a string to an array and convert it into regular expression
by ikegami (Patriarch) on Dec 08, 2007 at 19:31 UTC

    You forgot to strip the line endings and you needlessly invoke the Perl parser and compiler in addition to the regex parser and compiler when only the latter is needed. 

    # If we are reading in regexs.
chomp( my @arry = <> );
my $pattern = join('|', @arry);
my $regex = qr/$pattern/;

    [download]
    # If we are reading in text strings.
chomp( my @arry = <> );
my $pattern = join('|', map quotemeta, @arry);
my $regex = qr/$pattern/;

    [download]
[reply]
[d/l]
[select]
      I thought qr// was a compile time thing. I stand corrected.
      Thank you.
[reply]

In Section Seekers of Perl Wisdom