Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> wrote: > perl > -pe's/^\s*#(?!\s*((ifn?|un)def|(el|end)?if|define|include|else)\ > b).*//s' > > Note that without the /s modifier, . will NOT match the trailing > \n, so I'd have to add \n to the end of the regex, adding a > character to the count.
An alternative would be to use the -l switch in place of the /s modifier. That strips off the newline on input and puts it back on on output. -- Keith C. Ivey <[EMAIL PROTECTED]> Washington, DC
