Elective.pl

gistfile1.txt

use warnings;

%courses = (
    "2CPR2B" => "C Language",
    "1UNX1B" => "Intro to UNIX",
    "3SH414" => "Shell Programming",
    "4PL400" => "Perl Programming"
);

#Sorteren op key values:
foreach $key (sort keys %courses) {
     print "$key: $courses{$key}\n";
}

print "\nEnter the code for the course you wish to follow.";
chomp($yourCourse = <STDIN>);
while(($key,$value) = each(%courses)) {
   if($key eq $yourCourse) {
        print "You will be taking $value this semester.";
   }
}