Sorry...
In article <[EMAIL PROTECTED]>, Kevin Pfeiffer wrote:
> 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> );
> }
I was mistaken - I see now that the 2 lines allow for abbreviated input like
"W" and "L". :-(
--
Kevin Pfeiffer
International University Bremen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
