in reply to A better understanding of while () loops

Welcome to Perl!

First, rather than rewriting your looping and logic, let's just cover the expression for checking alternatives and I think you can work out the rest as part of your own experimentation. You can do it like this (parens added for clarity):

($input ne 'good') && ($input ne 'bad') && ($input ne 'iffy')

You may not be ready for regular expressions quite yet, but they provide another approach to matching alternatives

! ( $input =~ /good|bad|iffy/ )

You can read that =~ bit as "input matches good or bad or iffy" in the way we idiomatically mean that in English. Negating that can also be done all in one as this:

$input !~ /good|bad|iffy/

Best of luck

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Replies are listed 'Best First'.
Re^2: A better understanding of while () loops
by sub_chick (Hermit) on Dec 01, 2005 at 17:04 UTC
    Thank you for making me feel welcome!
    "Es gibt mehr zu Leben als Bücher, kennen Sie. Aber nicht viel mehr " -(Der Smiths)