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);
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 |