Re: how can i split a string to an array and convert it into regular expression

[plobsing]

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/");

That of course assumes that your input isn't doing anything evil (like having a '/' in it).

[ikegami]

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/;

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

[plobsing]

I thought qr// was a compile time thing. I stand corrected.
Thank you.