How do I pass a hash to subroutine?

perl hash subroutine
nebulus picture nebulus · Feb 4, 2011 · Viewed 42.4k times · Source

Need help figuring out how to do this. My code:

my %hash;
$hash{'1'}= {'Make' => 'Toyota','Color' => 'Red',};
$hash{'2'}= {'Make' => 'Ford','Color' => 'Blue',};
$hash{'3'}= {'Make' => 'Honda','Color' => 'Yellow',};


&printInfo(%hash);

sub printInfo{
   my (%hash) = %_;
   foreach my $key (keys %_{       
    my $a = $_{$key}{'Make'};   
    my $b = $_{$key}{'Color'};   
    print "$a $b\n";
    }
}

Answer

ghandi picture ghandi · Feb 4, 2011

The easy way, which may lead to problems when the code evolves, is simply by assigning the default array @_ (which contains all key-value-pairs as an even list) to the %hash which then rebuilds accordingliy. So your code would look like this:

sub printInfo {
   my %hash = @_;
   ...
}

The better way would be to pass the hash as reference to the subroutine. This way you could still pass more parameters to your subroutine.

printInfo(\%hash);
sub PrintInfo {
   my %hash = %{$_[0]};
   ...
}

An introduction to using references in Perl can be found in the perlreftut

Related questions

How can I use hashes as arguments to subroutines in Perl?

I was asked to modify some existing code to add some additional functionality. I have searched on Google and cannot seem to find the answer. I have something to this effect... %first_hash = gen_first_hash(); %second_hash = gen_second_…

Read More
Perl modifying hash reference in subroutine

I am having trouble understanding the hash references and changing the hash in place, instead of returning it. I want to write a sub routine which will return a value from hash and also modify the hash. I was facing …

Read More
Perl - passing arguments to a subroutine as hash key-value pairs problem

I have to pass two references as arguments to a subroutine (buildRanges) as hash key-value pairs as show below Example: @array = (“0A0”, “005”, “001”, “004”, “0BC”, “004”, “002”, “001”); @ranges = (); $numRanges = buildRanges(VALUES => \@array, REF_RANGES=>\@ranges); My question is 1. is the syntax for …

Read More