Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Re: reversing a compiled regex?

by MarkM (Curate)
on Mar 27, 2003 at 02:30 UTC ( [id://246145]=note: print w/replies, xml ) Need Help??


in reply to Re: reversing a compiled regex?
in thread reversing a compiled regex?

This is not a correct conclusion or suggestion. Take a look at your code again:

my $regexs = qr/[^\Q$str\E]/i;

[] is used to define a character class, not a regular expression grouping. The statement above reads: "at least one character not found in $str." The reason your test code did not show you this is because you were matching:

($a = "SCALAR") =~ s/[^TT]/HOO/gi;

Or, simplified:

($a = "SCALAR") =~ s/[^T]/HOO/gi;

Since every character in the string "SCALAR" is "not T", every character is replaced with HOO. The original request was for a method of implementing !// using only //.

Please put a little more thought into your response... Cheers...

Replies are listed 'Best First'.
Re: Re: Re: reversing a compiled regex?
by OM_Zen (Scribe) on Mar 27, 2003 at 15:51 UTC
    Hi MarkM ,

    Thanks for the reply , I got the actual post only now. That was totally my mistake . I see the solution from the other fellow reply . I shall surely give a little thought into my response .

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://246145]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (2)
As of 2024-04-20 13:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found