On Wed, Nov 14, 2001 at 11:27:27PM -0500, Ronald J Kimball wrote: > We had the same idea with the range operator. Here's what I came up with, > at 99 characters: > > perl >-ne'(1../^#!.*perl/i)|/^\s*#(?!\s*(include|define|if(n?def)?|el(se|if)|undef|endif))/||print'
That one works! And #1 is covered by: perl -ne'/^\\s*#(?!\\s*(include|define|if(n?def)?|el(se|if)|undef|endif))/||print' Is that bitwise or wise? -- Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/ Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One AY! The ground beef, she is burning my groin! http://sluggy.com/d/990105.html
