Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Writing a negative regex using =~

by kcott (Canon)
on Oct 17, 2012 at 09:56 UTC ( #999510=note: print w/replies, xml ) Need Help??


in reply to Writing a negative regex using =~

G'day John,

Update: My apologies. I thought I'd read your post fully - I must be going blind. You clearly did explain why you wanted to do this. Ignore the crap I wrote. Sorry!

Perhaps if you explained why you wanted to do this, you'd get a better answer. However, to do what you describe, why not just negate the result of =~:

$ perl -Mstrict -Mwarnings -E ' my $x = q{L,0010,8001149805,003,20121015,0600,267,204193,20121015,1300 +,,GBFER,204193}; my $y = q{L,0010,8001149805,003,20121015,0600,267,204193,20121015,1300 +,,XXXXX,204193}; if (! ($x =~ /(?:GBFER|GBFOO)/)) { say "match" } else { say "no match" + } if (! ($y =~ /(?:GBFER|GBFOO)/)) { say "match" } else { say "no match" + } ' no match match

-- Ken

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://999510]
help
Chatterbox?
[LanX]: they have a constitutional referendum in turkey, kind of "do you want a dictator" and everybody opting no gets problems ...
[Corion]: LanX: Random Auto Expand?
[Corion]: LanX: Well, everybody opting "yes" will also get problems. The question is more like "Do you want problems now or problems later?"
[LanX]: and the AA had posters with a big say NO with a small "to alcohol"
[ambrus]: LanX: is it the kind of free and secret vote where there's only one box you can check?
[LanX]: no two boxes , enemies of the state are just denounced
[LanX]: like judges in Britain or the US

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2017-03-27 12:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (320 votes). Check out past polls.