oakley has asked for the wisdom of the Perl Monks concerning the following question:
Where the format is nothing more than "yes|no"while ( ($addques{$key}{answer} eq "") || ($addques{$key}{answer} !~ +/$addques{$key}{format}/) ) { print " Invalid answer/option - try again\n"; print "$addques{$key}{question}"; chomp($addques{$key}{answer} = <STDIN>); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
(jeffa) Re: Exact pattern match?
by jeffa (Bishop) on Jan 19, 2001 at 01:45 UTC | |
|
Re: Exact pattern match?
by chipmunk (Parson) on Jan 19, 2001 at 01:47 UTC | |
|
Re: Exact pattern match?
by swiftone (Curate) on Jan 19, 2001 at 01:44 UTC | |
|
Re: Exact pattern match?
by c-era (Curate) on Jan 19, 2001 at 01:45 UTC | |
|
Re: Exact pattern match?
by adamsj (Hermit) on Jan 19, 2001 at 02:48 UTC |