Majian <[email protected]> asked:
> %courses = (
> "2CPR2B" => "C Language",
> "1UNX1B" => "Intro to Unix",
> "3SH414" => "Shell Programming",
> "4PL400" => "Perl Programming",
> );
>
> print "\n\"EDP\" NUMBERS AND ELECTIVES:\n";
> while (($num, $value) = each (%courses))
> {
> print "-----------------------------\n";
> printf "%-10s | %s\n ", $num, $value;
> }
>
> print "\nWhat is the EOP number of the course you wish to take : $num";
> chomp ($num = <STDIN>);
> print "The course you will be taking is: \"$courses{$num}\"\n";
> =======================================================
> The question was :
>
> If I type the "4PL400", then it will output the value ---"Perl
> Programming";
> But I want to type the "4pl400" , and the result should be printed "Perl
> Programming"
>
> How could I come it true?
Use "chomp ($num = uc(<STDIN>) )" to uppercase the input and make sure that all
your keys are in upper case, too.
HTH,
Thomas
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
