Mega Code Archive

 

Categories / Perl / Hash

 

Check key existance after using delete operator

$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."; }