Perl : hash reference values

[bcostacurta]

I have a problem with a hash reference.

...
my $GetMsgDesc = {};
...
my $Buffer = MQGET($HConn, $HobjIP, $GetMsgDesc, $GetMsgOpts, $BufferLength, $CompCode, $Reason);

print $GetMsgDesc, "\n";
...

which print 'HASH(0x36d560)'

My question : from here how to print keys and values stored in $GetMesgDesc ?


Thanks for help.
Bye,
Bruno

[Cabhan]

You have to dereference the hashref. You can do this in one of two ways:

1) To get the hash that is being referenced, you simply do %$GetMsgDesc

2) To get a value for a key in the hash that is being referenced, you do $GetMsgDesc->{$key}

I hope that helps.

[bcostacurta]

Thanks Cabhan.
Indeed it helps.

Bye,
Bruno