Re: Array within regexp?

Introducing join.

my @titles = qw/ Mr Mrs Ms Miss Dr Sir Lord Lady /;
$alt_titles = join '|', @titles;
if( $text =~ m/^($alt_titles)\s+(.*)/ ) {
    print "$1 => $2\n";
}
[download]

Dave

Comment on Re: Array within regexp? Download Code

Replies are listed 'Best First'.
Re^2: Array within regexp? by ambrus (Abbot) on Feb 27, 2012 at 11:04 UTC
Correct. However, if you mean the array to contain plain strings you want to match literally, you need to tell that to perl, otherwise it will try to interpret them as regexen, such as interpretting dots in the strings to match any character. `$alt_titles = join '\|', map quotemeta, @titles;` [download]	[reply] [d/l]
Re^3: Array within regexp? by jfrm (Monk) on Feb 27, 2012 at 11:12 UTC
Thanks for your good answers - I didn't think that would be so easy!	[reply]
Re^4: Array within regexp? by GrandFather (Saint) on Feb 27, 2012 at 21:24 UTC
If you didn't expect it to be easy, why are you using Perl? ;) Perl makes simple things easy and hard things possible. True laziness is hard work	[reply]