Matching an array of strings to strings in a file.

[Yitzchak Scott-Thoennes]

On Mon, Aug 29, 2011 at 9:36 AM, Randal L. Schwartz
<merlyn at stonehenge.com> wrote:
>>>>>> "Gianni" == Gianni Ceccarelli <dakkar at thenautilus.net> writes:
>
> Gianni>     my $rx = join '|',map { "\Q$_\E" } @$strings;
>
> No need for \E if you're already at the end of the string.
>
> And I'd change that to just
>
>  quotemeta $_
>
> to make it clearer, and avoid the one layer of copying.

Clearer obviously being the more significant motive.

Though I find this even clearer:

    my $rx = join '|', map quotemeta, @$strings;