http://qs321.pair.com?node_id=860645


in reply to Array of Hashes in subroutines.

You almost had it. Just pass a reference to the hash to your function with \%hash. You can access the elements without dereferencing with the -> operator. 
#!/usr/bin/perl
use strict;

sub display {
    my $ref01 = shift;

    foreach my $key (sort keys %{$ref01}) {
        print "$key: $ref01->{$key}[0] $ref01->{$key}[1] $ref01->{$key
+}[2]\n";
    }
}

my %hash1;

$hash1{'fruit'} = ['apple', 'orange', 'plum'];
$hash1{'vegetable'} = ['leek', 'carrot', 'peas'];

display (\%hash1);

foreach my $j (sort keys %hash1) {
    print "$j: $hash1{$j}[0] $hash1{$j}[1] $hash1{$j}[2]\n";
}

[download]

Replies are listed 'Best First'.
Re^2: Array of Hashes in subroutines.
by jlnh (Novice) on Sep 18, 2010 at 18:24 UTC
    Thank you so much for your help!
    I was desesperate.
[reply]
      Hi Jean,

      Try out the following. It should work
      #! /usr/bin/perl

use strict;
use warnings;

sub display
{
        my $ref = shift;
        foreach my $key (sort keys %{$ref})
        {
                print "$key = [";
                foreach my $key1 (@{$ref->{$key}})
                {
                        print "$key1,";
                }
        print "]\n";
        }
}

my %hash1;

$hash1{'frog'} = ['jumps','swims','slimy'];
$hash1{'dog'}  = ['barks','swims','hairy'];

display(\%hash1);

      [download]

      As someone had mentioned the module "Data Dumper" is really helpful. Even i am still learning and its really fun playing around with these references and derefences until you figure out what is happening. :)
      Hope it helped
[reply]
[d/l]

In Section Seekers of Perl Wisdom