Question

Implement the pseudocode below in perl, which simulates a phonebook. name this program phonebook.pl: 1. Create a hashtable with the entries (john, 1111111), (sally, 2222222) , (adam, 33333333), (sue, 444444444) , (albert, 55555555) 2. delete adam from the hashtable. 3. add (katherine, 888888888) to the table. 4. print only the names from the hashtable. You must use the key function here. 5. print only the phone numbers from the hashtable. you must use the values function here.

Answer 1

Code:

%phonebook = ('john' => 1111111, 'sally' => 2222222, 'adam' => 3333333,'sue'=>4444444,'albert' => 5555555); #creating hash table

delete $phonebook{'adam'}; #deleting adam
$phonebook{'katherine'} = 8888888; #adding number
@names=keys %phonebook; #getting names(keys) from table
foreach $a (@names){
print "$a\n";
}
@phone=values %phonebook; #getting numbers(values) from table
foreach $x (@phone){
print "$x\n";
}

Output: