Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Perl (http://www.go4expert.com/articles/perl-tutorials/)
-   -   Perl Hash : Tips & Tricks (http://www.go4expert.com/articles/perl-hash-tips-tricks-t9219/)

pradeep 10Mar2008 17:29

Perl Hash : Tips & Tricks
 
Introduction To Hashes In Perl (http://www.go4expert.com/showthread.php?t=8518)

Preserve Add Order



Perl doesn't guarantee the order of the elements of hash, they may be in a different order everytime you access the hash. It's a much wanted, rather expected behaviour that I get my elements in the order I added them to the hash. The Tie::IxHash module helps us out of this problem, all we need to do it to tie the has to this module, after which you'll find the hash elements in the same order you has added them.

Here's a simple demonstration.

Code: Perl

use Tie::IxHash;
 
 tie (%my_hash, Tie::IxHash);
 $my_hash{'PHP'} = 'Cool';
 $my_hash{'ASP'} = 'Old';
 $my_hash{'Perl'} = 'Amazing';
 $my_hash{'Ruby'} = 'On Rails';
 
 while my $k (keys %my_hash)
 {
     print "$k=>$my_hash{$k}, ";
 }


Use 2 Arrays For Keys & Values Of A Hash



Code: Perl

my @keys = qw/PHP ASP Perl Ruby/;
 my @values = ('Cool','Old','Amazing','On Rails');
 
 my %my_hash;
 
 @my_hash{@keys} = @values;
 
 while my $k (keys %my_hash)
 {
     print "$k=>$my_hash{$k}, ";
 }


Some might be confused with the "@..{..}" notation, it's the notation for accessing a hash slice, by which you can access a range/collection of hash keys at once.

A very useful implementation of hash slice is while fetching rows using DBI module. Use hash slices we can get a hash of the record row, much like the PHP equivalent mysql_fetch_row, which can be used to fetch a associative array.

Sorting Hashes



By keys:

Unlike an array you cannot sort a hash, cause Perl uses it's own algorithm the order of hash elements which is not at all predictable. So, the trick is to get the keys of a hash and sorted them insted to get the desired results.

Code: Perl

$my_hash{'PHP'} = 'Cool';
 $my_hash{'ASP'} = 'Old';
 $my_hash{'Perl'} = 'Amazing';
 $my_hash{'Ruby'} = 'On Rails';
 
 while my $k (sort keys %my_hash)
 {
     print "$k=>$my_hash{$k}, ";
 }


By values:

Like the above example, here we will again be using the keys but differently. We use the string comparison operator "cmp" and <=> for interger comparison.

Code: Perl

$my_hash{'PHP'} = 'Cool';
 $my_hash{'ASP'} = 'Old';
 $my_hash{'Perl'} = 'Amazing';
 $my_hash{'Ruby'} = 'On Rails';
 
 while my $k (sort {$my_hash{$a} cmp $my_hash{$b}} keys %my_hash)
 {
     print "$k=>$my_hash{$k}, ";
 }


shabbir 4Apr2008 18:45

Re: Perl Hash : Tips & Tricks
 
Nomination for article of the month of March


All times are GMT +5.5. The time now is 15:07.