User input taking capslock into account

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am trying to use the code below where when the user enters small "e",the program exits,I want to make sure even when the user enters uppercase "E",the program exits.I tried the below but doesnt seem to work.

my $input = <STDIN>;
exit if $user_input eq "e|E<Enter>\n";
[download]

Comment on User input taking capslock into account Download Code

Replies are listed 'Best First'.
Re: User input taking capslock into account by toolic (Bishop) on Mar 15, 2011 at 02:19 UTC
`use warnings; use strict; my $input = <STDIN>; chomp $input; exit if $input eq 'e' or $input eq 'E';` [download] use strict and warnings to fix your variable name mistake. chomp your input. Checking for each value independently is one way to do it. Another is to use a regular expression. `exit if $input =~ /^e$/i;` [download]	[reply] [d/l] [select]
Re: User input taking capslock into account by Eliya (Vicar) on Mar 15, 2011 at 02:17 UTC
`... exit if lc $user_input eq "e\n";` [download] Alternatively: `... exit if uc $user_input eq "E\n";` [download] (see lc)	[reply] [d/l] [select]