>>>>> "MGS" == Michael G Schwern <[EMAIL PROTECTED]> writes:
MGS> Schuyler's got it down to: MGS> perl -ne '$s||=/^#!.*perl/i;$s&&(/^\\s*[^#]|^\\s*#\\s*(include|define|(ifn?|un)def|else|elif|endif)/)&&print' perl -ne '/^#!.*perl/i..1&&(/^\\s*[^#]|^\\s*#\\s*(include|define|(ifn?|un)def|else|elif|endif)/)&&print' 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
