11 lines
208 B
Perl
11 lines
208 B
Perl
|
$hash{fruit} = apple;
|
||
|
|
$hash{sandwich} = hamburger;
|
||
|
|
$hash{drink} = bubbly;
|
||
|
|
|
||
|
|
delete($hash{'fruit'});
|
||
|
|
|
||
|
|
if (exists($hash{"fruit"})) {
|
||
|
|
print "Key exists.";
|
||
|
|
} else {
|
||
|
|
print "Key does not exist.";
|
||
|
|
}
|