15 lines
490 B
Perl
15 lines
490 B
Perl
|
# Assigning keys and values to a hash
|
||
|
|
|
||
|
|
%department = ("Eng" => "Engineering",
|
||
|
|
"M" => "Math",
|
||
|
|
"S" => "Science",
|
||
|
|
"CS" => "Computer Science",
|
||
|
|
"Ed" => "Education",
|
||
|
|
);
|
||
|
|
$department = $department{'M'}; # Either single or double quotes# ok for the keys
|
||
|
|
$school = $department{'Ed'};
|
||
|
|
print "$department\n" ;
|
||
|
|
print "$school.\n";
|
||
|
|
print qq/$department{'CS'}.\n/;
|
||
|
|
print qq/testing:\n/;
|
||
|
|
print %department, "\n";
|