Perl: Another Round with Hashes - Storing a Deleted Value in a Variable (Page 4 of 4 )
We don't have to simply do away with our deleted value. In the following code, we will store it in a variable and append it to a sentence:
#!/usr/bin/perl
%Wrestlers=(Champ=> ' CM Punk ', Chump => ' Chavo Guerrero ',
OldSkool=> ' Big John Stud ', Boof=> ' Brutus Beefcake ');
print values(%Wrestlers);
print "\n\n";
$Dead=delete(@Wrestlers{Champ});
print values(%Wrestlers);
print "\n\n";
print "This guy is dead: " . $Dead;
Here we have:
Brutus Beefcake Big John Stud CM Punk Chavo Guerrero
Brutus Beefcake Big John Stud Chavo Guerrero
This guy is dead: CM Punk
And finally, we come back to our scenario where both Chavo and CM Punk die. Now we would like to add them to a growing list of dying wrestlers. Since seeing is believing, here is the eye-catching code:
#!/usr/bin/perl
%Wrestlers=(Champ=> ' CM Punk ', Chump => ' Chavo Guerrero ',
OldSkool=> ' Big John Stud ', Boof=> ' Brutus Beefcake ');
print values(%Wrestlers);
print "\n\n";
@Dead=delete(@Wrestlers{Champ,Chump});
print values(%Wrestlers);
print "\n\n";
print "These guys are dead: " . @Dead[0] . @Dead[1];
This will delete the records for 'Champ' and 'Chump' and store them in the list @Dead. When we run this program we get the following printout:
Brutus Beefcake Big John Stud CM Punk Chavo Guerrero
Brutus Beefcake Big John Stud
These guys are dead: CM Punk Chavo Guerrero
One final note. Had you tried to write out both values in the @Dead list like so:
print "These guys are dead: " . @Dead;
You would have been given the sentence:
These guys are dead: 2
Instead of printing the values, it would have printed the number of elements. Why that is, I am not certain.
Well that's all the time we have for this one. Be sure to stop by next time as we continue talking about hashes and go into those multidimensional lists you've been hearing so much about.
Till then...
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
