Tom Phoenix am Mittwoch, 13. Dezember 2006 02:32:
> On 12/12/06, D. Bolliger <[EMAIL PROTECTED]> wrote:
> > $found{$1}++ for ($s2=~/($search)/g); # although count not used
> > below
>
> Didn't $search just come from the data? It's a string, not a pattern.
> If it's got any metacharacters, it could break your pattern, or worse.
Ouch, you're right Tom! I completely omitted (speak: forgot) *any* security
considerations at this development state :-(
=> $s2=~/(\Q$search\E)/g
Waiting for other comments... good night, sleep time here :-)
Dani
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
