Need a regex..

littlemonk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Need a regex.. by moritz (Cardinal) on May 22, 2012 at 09:48 UTC
You can do that with a negative look-ahead. See perlre for details. But it's much easier to simply use a negated match, `if ($word !~ /Select/) { ... }` Update: fixed to actually use negated regex match. Thanks salva and anonmonk! Perl 6 - the future is here, just unevenly distributed	[reply] [d/l]
Re^2: Need a regex.. by salva (Canon) on May 22, 2012 at 09:50 UTC
you mean `!~`, right?	[reply] [d/l]
Re^2: Need a regex.. by Anonymous Monk on May 22, 2012 at 09:51 UTC
heh, ~= is not negated match :)	[reply]
Re: Need a regex.. by marto (Cardinal) on May 22, 2012 at 11:17 UTC
In your previous post also titled Need a regex.. you were given links to regex tutorials, please read and learn from them. Show some effort when posting. How do I compose an effective node title?, How do I post a question effectively?.	[reply]
Re: Need a regex.. by salva (Canon) on May 22, 2012 at 11:05 UTC
`if (index($str, 'Select') < 0) { ... }`	[reply] [d/l]
Re: Need a regex.. by ikegami (Patriarch) on May 22, 2012 at 20:18 UTC
It's unclear what you want. If you're trying to match «a string that isn't "Select"», you want `$s !~ /^Select\z/` [download] If you're trying to match «a string that doesn't contain "Select"», you want `$s !~ /Select/` [download] If you're trying to match «any number of characters that don't contain the substring "Select"», you want `$s =~ /(?:(?!Select).)/s` [download] (This last one would normally be used as part of a larger pattern.) `/(?:(?!STRING).)/s` [download] is to `/STRING/` [download] as `/[^CHAR]/` [download] is to `/CHAR/` [download]	[reply] [d/l] [select]
Re: Need a regex.. by Anonymous Monk on May 22, 2012 at 09:49 UTC
Hi I need a regex to match anything accept the word "Select" plz help me.. Your question is unclear, it requires guessing as to what you mean, so read How do I post a question effectively? and ask a clear question Also, read perlintro and perlrequick and start writing regex yourself	[reply]
Re: Need a regex.. by zeni (Beadle) on May 22, 2012 at 10:45 UTC
`my $str = "#Select"; if ($str =~ m/^Select$/) { print "matched..\n"; } else { print "not matched..\n"; }` [download] output: not matched	[reply] [d/l]
Re: Need a regex.. by jack123 (Acolyte) on May 22, 2012 at 10:07 UTC
Please correct your question you are trying to say accept or except. If its except then you can do any of these ways: $str = 'your regular expression string'; $str !~ /Select/	[reply]