Yesterday’s program, in which the user can indicate a Maritime province and be told its capital, has one drawback:\u00a0 it exits after giving the answer.\u00a0 What if the user wants to be given the capitals of other Maritime provinces?\u00a0 The user needs to recall the program each time.\u00a0 Although not difficult, it’s not convenient.<\/p>\n
With a while<\/span> loop, the user can be invited to play the game over and over again until they decide to stop.<\/p>\n Let’s look at yesterday’s program with a while<\/span> loop added. There are a few other additions to support the while loop. The new code is in orange:<\/p>\n The while<\/span> condition checks the value of $prov<\/span> to see if it’s ‘X’<\/span> or ‘x’<\/span>. Inside the loop, the value of $prov<\/span> must be checked again because the user freshly enters it. The code is there, but I’ll explain it next time, along with a few other details.<\/p>\n HTH:)<\/p>\n Sources:<\/p>\n Robert’s Perl tutorial<\/a><\/p>\n McGrath, Mike. Perl in easy steps<\/em>. Southam: Computer Step, 2004.<\/p>\n
\n#!\/usr\/bin\/perl
\n
\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>
\n<\/span><\/p>\n
\nIf it is, the program bypasses the code inside the while<\/span> loop and prints out Thanks for playing:)<\/span><\/p>\n