Re: comparison of character

[davido]

If it's homework, by all means, figure out the logic. If not:

use IO::Prompt::Hooked;

my $choice = prompt(
  message  => 'Do you wish to update? (Y/N):',
  validate => qr/^[YN]$/i,
);

Or if you want to provide extra help upon receiving invalid input:

my $choice = prompt(
  message  => 'Do you wish to update? (Y/N):',
  validate => qr/^[YN]$/i,
  error    => "Response must be 'Y' or 'N'.\n\n",
);

...or if you want to add a default...

my $choice = prompt(
  message  => 'Do you wish to update? (Y/N):',
  default  => 'N',
  validate => qr/^[YN]$/i,
  error    => "Response must be 'Y' or 'N'.\n\n",
);