>>>>> "RJK" == Ronald J Kimball <[EMAIL PROTECTED]> writes:
RJK> We had the same idea with the range operator. Here's what I came RJK> up with, at 99 characters: perl -ne'(1../^#!.*perl/i)|/^\s*#(?!\s*(include|define|if(n?def)?|el(se|if)|undef|endif))/||print' my latest (and tested version) perl -ne 'print if/^#!.*perl/i..0and/\s*#\s*(include|define|(ifn?|un)def|else|elif|endif)/|/^\s*[^#]/' 3 more than ronald's i also had the range idea independently. i ran into the problem of && binding tighter than scalar .. but i have another idea up my sleeve. :) 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
