The program, with the while<\/span> loop and its support code added in orange<\/span>, is as follows: The first orange line, Next, we enter the while<\/span> loop body. The reddish-brown lines of code are likely self-explanatory to people who have read my other posts about Perl programming. Then, we come to the orange This if<\/span> test checks if $prov <\/span> is equal to (which is what eq<\/span> means) ‘X’ or ‘x’. (||<\/span> means “or”.)<\/p>\n If indeed $prov eq ‘X’ || $prov eq ‘x’<\/span>, we enter the if<\/span> body, where we reach the single instruction next<\/span>. The next<\/span> instruction kicks the program back up to the top of the while<\/span> loop, where $prov<\/span> fails the $prov ne ‘X’ && $prov ne ‘x’<\/span> condition. The program bypasses the while<\/span> loop to the last line of the program, and prints out<\/p>\n Thanks for playing:)<\/span><\/p>\n As long as the user doesn’t enter X or x, the program continues offering the game. The while<\/span> and if<\/span> conditions check the value of $prov<\/span> to know when the user desires to exit.<\/p>\n I’ll be saying even more about the ideas mentioned here. In the meantime, Sources:<\/p>\n Robert’s Perl tutorial<\/a><\/p>\n McGrath, Mike. Perl in easy steps<\/em>. Southam: Computer Step, 2004.<\/p>\n
\n
\n#!\/usr\/bin\/perl
\n%maritimecapitals=(‘NB’,’Fredericton’,’NS’,’Halifax’,’PEI’,’Charlottetown’);
\n$prov = ‘Y’;
\nwhile($prov ne ‘X’ && $prov ne ‘x’){<\/span>
\nprint “Hello. Which Maritime capital would you like to know?\\n\\n”;
\nprint “Key in NS for Nova Scotia, NB for New Brunswick, or\\n\\n”;
\nprint “PEI for Prince Edward Island.\\n\\n”;
\n$prov=<STDIN>;
\nchomp $prov;
\n
\nif($prov eq ‘X’ || $prov eq ‘x’){
\nnext;
\n}<\/span>
\nprint “The capital of $prov is $maritimecapitals{$prov}.\\n\\n”;
\n}
\nprint “Thanks for playing :)\\n\\n”;<\/span><\/span><\/p>\n
\n$prov=’Y’;<\/span>
\nis needed because the while<\/span> loop is about to check the value of $prov<\/span>. If the value of $prov<\/span> is “not equal to” (which is what ne<\/span> means) ‘X’ or ‘x’, the program enters the while loop. To make sure that, on the first pass, $prov ne ‘X’ && $prov ne ‘x’<\/span>, we set $prov=’Y’<\/span>. (&&<\/span> means “and”).<\/p>\n
\nif($prov eq ‘X’ || $prov eq ‘x’){
\nnext;
\n}
\n<\/span><\/p>\n
\nHTH:)<\/p>\n