In article <[EMAIL PROTECTED]>, Kevin Pfeiffer wrote:
> Here's an 'or' version:
> my $type1 = '';
> while ( $type1 !~ /wisteria|lime/i ) {
> print "Enter COLOR of server. Lime or Wisteria [lime, wisteria]: ";
> chomp( $type1 = ucfirst lc <STDIN> );
> $type1 = 'Wisteria' if $type1 eq 'W';
> $type1 = 'Lime' if $type1 eq 'L';
> }
Oops - longer than needed:
my $type1 = '';
while ( $type1 !~ /wisteria|lime/i ) {
print "Enter COLOR of server. Lime or Wisteria [lime, wisteria]: ";
chomp( $type1 = ucfirst lc <STDIN> );
}
--
Kevin Pfeiffer
International University Bremen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
