Perl
  Home arrow Perl arrow Page 5 - Perl Hashes
Dev Shed Forums 
Administration  
AJAX  
Apache  
BrainDump  
DHTML  
Flash  
Java  
JavaScript  
Multimedia  
MySQL  
Oracle  
Perl  
PHP  
Practices  
Python  
Reviews  
Security  
Style-Sheets  
Web Services  
XML  
Zend  
Zope  
Forums Sitemap 
IBM® developerWorks 
Sun Developer Network 
Dedicated Servers 
E-Commerce Hosting 
Linux Web Hosting 
Managed Hosting 
Small Business Hosting 
Actuate Whitepapers 
Moblin 
VPS Hosting 
Weekly Newsletter

 
Developer Updates  
Free Website Content 
 RSS  Articles
 RSS  Forums
 RSS  All Feeds
Write For Us Get Paid 
Request Media Kit
Contact Us 
Site Map 
Privacy Policy 
Support 
 USERNAME
 
 PASSWORD
 
 
  >>> SIGN UP!  
  Lost Password? 
PERL

Perl Hashes
By: James Payne
  • Search For More Articles!
  • Disclaimer
  • Author Terms
  • Rating: 5 stars5 stars5 stars5 stars5 stars / 3
    2008-04-28

    Table of Contents:
  • Perl Hashes
  • Creating A Hash
  • Printing from a Hash
  • Printing All the Values or Keys in a Hash
  • Alternative Methods for Creating Hashes

  • Rate this Article: Poor Best 
      ADD THIS ARTICLE TO:
      Del.ici.ous Digg
      Blink Simpy
      Google Spurl
      Y! MyWeb Furl
    Email Me Similar Content When Posted
    Add Developer Shed Article Feed To Your Site
    Email Article To Friend
    Print Version Of Article
    PDF Version Of Article
     
     
    ADVERTISEMENT

    Stay one step ahead of the competition. Evaluate and give feedback on some of the hottest web development tools on the market today. Make your opinion heard! Click Here

    Perl Hashes - Alternative Methods for Creating Hashes


    (Page 5 of 5 )

    There are other ways to create hashes as well. In this next example we will use one of them. Note though that this only works for Perl 5 and later. Here, we will use the => operator to assign values:


    #!/usr/bin/perl

    %HowItIs = (Dumb=>'You ', Fat=>'YoMama ',UglyGenius=>'James Payne

    ',Nerd=>'James Payne');

    print $HowItIs{Dumb};

    This prints out:

      You

    There really is no difference between this and the original method as far as I know. Some people say this way is easier to read, but it is really up to personal preference.

    You could also create an empty hash if you wanted, and assign values to it later:


    #!/usr/bin/perl

    %HowItIs = ();

    We'll learn how to add to it in a bit.

    What if we want to create a hash from another hash? That too is a simple process:


    #!/usr/bin/perl

    %HowItIs = (Dumb=>'You ', Fat=>'YoMama ',UglyGenius=>'James Payne ',Nerd=>'James Payne ');

    %HowItWas = %HowItIs;

    print values(%HowItWas);

    print "\n\n";

    print keys(%HowItWas);

    In the above example, we create our %HowItIs hash and assign it some values. Next, we create another hash named %HowItWas, and add the values from %HowItIs to it. We then print out first the values, then the keys to verify that it worked. The result:

      James Payne James Payne YoMama You

      UglyGeniusNerdFatDumb

    If we only wanted to add a few of the values to our newly created hash, we could do so in the following manner:


    #!/usr/bin/perl

    %HowItIs = (Dumb=>'You ', Fat=>'YoMama ',UglyGenius=>'James Payne

    ',Nerd=>'James Payne ');

    %HowItWas = @HowItIs{Dumb,Fat};

    print values(%HowItWas);

    print "\n\n";

    print keys(%HowItWas);

    The result?

      YoMama

      You

    We aren't limited to creating just other hashes with our hashes. We can also create variables:


    #!/usr/bin/perl

    %HowItIs = (Dumb=>'You ', Fat=>'YoMama ',UglyGenius=>'James Payne

    ',Nerd=>'James Payne ');

    $HowItWas = @HowItIs{Dumb};

    print $HowItWas;


    Which gives us:

      You

    And we can also create lists as well:

    #!/usr/bin/perl


    %HowItIs = (Dumb=>'You ', Fat=>'YoMama ',UglyGenius=>'James Payne

    ',Nerd=>'James Payne ');

    @HowItWas = @HowItIs{Dumb,Fat,Nerd};

    print @HowItWas;

    Here we are given:

      You YoMama James Payne

    Conclusion

    We covered a lot of ground in this article, however, there is much more to go. In our next tutorial we will learn to add records to hashes, remove them, check to see if a record already exists, create multidimensional lists, and much, much more. So be sure to stop by often.

    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.

       · Just a small correction, at the beginning where it says "... uppercase letters hold...
       · Hey,Thanks for catching that Pedro. Glad you enjoyed the article.
       · Thanks for stopping by to read another article in my series on Perl Lists and...
     

       

    PERL ARTICLES

    - Perl: More on Lists and Hashes
    - Perl: Dimensional Lists
    - Perl: A Continuing Look at Hashes and Multid...
    - Perl: Another Round with Hashes
    - Perl Hashes
    - Perl Lists: A Final Look at List::Util
    - Perl Lists: Utilizing List::Util
    - Perl Lists: The Split() Function
    - SQL and CGI with Perl and DBI
    - Perl Lists: More Functions and Operators
    - SELECT Queries and Perl
    - Perl Lists: More on Manipulation
    - Creating a Database with Perl and DBI
    - Perl: Sailing the List(less) Seas
    - Perl and DBI




    © 2003-2008 by Developer Shed. All rights reserved. DS Cluster 6 hosted by Hostway