>>>>> "J'P" == Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> writes:
J'P> perl -pe 's/^\s*#(?>\s*)(?!include|define|if(n?def)?|el(se|if)|undef|endif).*//s' J'P> And no, I don't want to use /m here. I want /s, because /s makes . match J'P> a newline, which means .* slurps up to the end of the line. #ifbar should be filtered out but isn't. you can only pass lines which start with exact cpp command tokens uri -- Uri Guttman ------ [EMAIL PROTECTED] -------- http://www.stemsystems.com -- Stem is an Open Source Network Development Toolkit and Application Suite - ----- Stem and Perl Development, Systems Architecture, Design and Coding ---- Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
