[MacPerl-AnyPerl] negative lookahead

[allan juul <lambretta@inet.uni2.dk>]

hi

this is of pure curiosity.

i have a 1000 or so .asp files to look in and i want to catch lines like
these:

"select * from table whatever where id like anything desc" or
"select * from table withanyname" or
"select *" or similar

if a line contain the word "order" followed by the word  "by"  they
should be excluded like this line:

"select * from table where id like anything order by age"


it is quite easy to catch the relevant lines with two  if/else blocks,
but is it possible to do in one single regular expression?

i had hoped that something like

/select.+?(?!order\s+\by)/

would have done the trick but this seems naive?

thanks

allan




==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-anyperl-request@macperl.org