"John W. Krahn" wrote:
> This is the closest but you need a separate match for each letter
>
> > # print $_ if /a\&e\&i\&o\&u/gi; # try a bitwise "and", with escapes
> > # print $_ if !/[bcdfghjklmnpqrstvwxyz]/gi; # try not matching consonants
> > print $_ if /(a+)(e+)(i+)(o+)(u+)/gi; # "LOTS of parentheses"
>
> By default print() prints the contents of $_ if there are no arguments
> so "print if ..." does the same thing. Also none of your matches
> require the /g option.
>
> > }
> >
> > AAAAAAAARRRRRRRRRRGGGGGGGGGGGGHHHHHHHHH!!!!!!!!!
>
> Fun, isn't it? :-)
Hi John,
I think this is one that sort of defeats the one-liner, or at least the single regex:
But oh, I get mad!
if (/a/i and /e/i and /i/i and /o/i and /u/i) {print;}
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
