19 lines
388 B
Perl
19 lines
388 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# Deleting hash elements.
|
||
|
|
$hash{"Name"} = "A";
|
||
|
|
$hash{"Address"} = "B";
|
||
|
|
$hash{"City"} = "C";
|
||
|
|
|
||
|
|
print ' Print keys before deletion.';
|
||
|
|
@key_names = keys(%hash);
|
||
|
|
|
||
|
|
print "Key names are: @key_names\n\n";
|
||
|
|
|
||
|
|
print 'Delete item and print.';
|
||
|
|
delete $hash{"Address"};
|
||
|
|
|
||
|
|
print ' Print keys after .';
|
||
|
|
@key_names = keys(%hash);
|
||
|
|
|
||
|
|
print "Key names now: @key_names\n\n";
|